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Preface 



The DOMAIN Pascal Language Reference explains how to code, compile, bind, and execute DOMAIN 
Pascal programs. 

We've organized this manual as follows: 



o 



Chapter 1 
Chapter 2 

Chapter 3 
Chapter 4 

Chapter 5 
Chapter 6 
Chapter 7 

Chapter 8 

Chapter 9 
Appendix A 
Appendix B 
Appendix C 
Appendix D 
Appendix E 



Introduces DOMAIN Pascal and provides an overview of its extensions. 

Defines DOMAIN Pascal building blocks (like the length of an identifier) 
and describes the structure of the main program. 

Explains all the DOMAIN Pascal data types. 

Contains alphabetized Ustings describing all the functions, procedures, 
statements, and operators that you can use in the code portion of a pro- 
gram. 

Explains how to declare and call procedures and functions. 

Details compiling, binding, debugging, and executing. 

Describes how you can break your program into two or more separately- 
compiled modules (which can be in DOMAIN Pascal, DOMAIN FOR- 
TRAN, or DOMAIN C). 

Contains an overview of the I/O resources available to DOMAIN Pascal 
programmers. 

Covers errors and warnings and how to handle them. 

Is a table of DOMAIN Pascal reserved words and predeclared identifiers. 

Is an ASCII table. 

Describes DOMAIN Pascal's extensions to ISO/ANSI standard Pascal. 

Describes DOMAIN Pascal's deviations from ISO/ANSI standard Pascal. 

Describes built-in routines available for systems programmers. 



Audience 

We wrote this manual to serve programmers at a variety of levels of Pascal expertise. Our goal is to keep 
the writing as simple as possible, but to assume that you know the fundamentals of Pascal programming. If 
you are totally inexperienced in a block-structured language like Pascal or PL/I, you probably should 
study a Pascal tutorial before using this manual. If you have a little experience with a block-structured lan- 
guage, you will probably benefit most by experimenting with the many examples we provide (particularly 
in Chapter 4) . If you are an expert Pascal programmer, turn to Appendix C first for a list of our exten- 
sions to standard Pascal. 
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Summary of Technical Changes 



This manual describes the DOMAIN Pascal compiler available with Software Release 9.5 and supersedes 
all earlier documents. The last update to the DOMAIN Pascal manual was at SR9.0. The following list de- 
scribes some of the features added to DOMAIN Pascal since SR9.0: 

• The compiler reports many new error and warning messages. 

• The new built-in functions max and min return the larger and smaller, respectively, of two val- 
ues. 

• The new built-in procedure discard explicitly discards the computed value of an expression. 

• DOMAIN Pascal now supports the ISO/ANSI standard Pascal procedures pack and unpack. 

• New compiler optimizations eliminate variable assignments that are never used. 

• A new compiler directive, %slibrary, allows the use of precompiled library include files. Also, the 
new compiler option -slib allows you to precompile a file so that %slibrary can use it. 

• The -opt compiler option now allows you to select a predetermined level of optimization for your 
program. You can select from level (which is equivalent to -nopt) to level 3. 

• The -cpu compiler option now accepts the following additional arguments for targeting the run- 
time CPU: 560 I 330 | 90 | 570 | 580 | 3000. 

• Three new routine options are available: nosave, noreturn, and dO_return. 

© The volatile attribute has been changed so that the attribute no longer is inherited by an entire 
record for which one field is declared volatile. 

« Enumerated type variables can now have a maximum of 2048 elements. The old limit was 256. 

• The compiler no longer requires that DOMAIN Pascal source filenames end with .pas. 

o A new optional parameter for the open procedure allows you to specify a buffer size. 

o A new systems programming function, set_sr, saves the current value of the hardware status regis- 
ter and then inserts a new value. 



Revisions to Manual 



A number of changes have been made to this manual for this revision. To help you find the revisions, 
change bars like the one next to this paragraph appear on the revised pages indicating where new informa- 
tion has been added or existing information has been revised. 



Related IVIanuals 



• Getting Started With Your DOMAIN System (002348) explains the fundamentals of the DOMAIN 
system. 

• The DOMAIN System User's Guide (005488) provides more detailed information on the DO- 
MAIN system. 

• The DOMAIN C Language Reference (002093) describes the DOMAIN implementation of the C 
language. 
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• The DOMAIN FORTRAN Language Reference (000530) describes the DOMAIN implementation 
of FORTRAN. 

o The DOMAIN System Command Reference (002547) describes the Shell and Display Manager 
(DM) concepts and commands. 

© The DOMAIN System Call Reference (007196) describes the system service routines provided by 
the operating system, and explains how to call these routines from user programs. 

o Programming With General System Calls (005506) covers writing DOMAIN Pascal programs that 
use stream calls and many other important system calls. 

o The DOMAIN Binder and Librarian Reference (004977) describes how to use the bind utility to 
link object modules and the librarian utility to create library files. 

o The DOMAIN Language Level Debugger Reference (001525) describes the high-level language 
debugger, DEBUG. 
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The DOMAIN Software Engineering Environment'" (DSEE) Reference (003016) describes the 
DOMAIN DSEE product. 



o The DOMAIN® /Dialogue"* User's Guide (004299) describes the DOMAIN/Dialogue product. 

Pascal Tutorials 

o Jensen, K. and N. Wirth, revised by Mickel, A. and J. Miner. Pascal User Manual and Report. 
Third Edition. Springer-Verlag, New York: 1985. 

o Grogono, Peter. Programming in Pascal. Revised Edition. Reading, Massachusetts: Addison- 
Wesley, 1980. 

o Cooper, D., and M. Clancy. Oh! Pascal! New York: WW Norton, 1982. 

Problems, Questions, and Suggestions 

We appreciate comments from the people who use our system. In order to make it easy for you to com- 
municate with us, we provide the User Change Request (UCR) system for software-related comments, 
and the Reader's Response form for documentation comments. By using these formal channels you make 
it easy for us to respond to your comments. 

You can get more information about how to submit a UCR by consulting the DOMAIN System Command 
Reference. Refer to the crucr (CREATE_USER_CHANGE_REQUEST) Shell command description. You 
can view the same description on-line by typing: 

$ help crucr 

For your documentation comments, we've included a Reader's Response form at the back of each manu- 
al. 
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Documentation Conventions 

Unless otherwise noted in the text, this manual uses the following symbolic conventions. 
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boldface 



lowercase 



italics 



typewriter 



Extension 



color 



{ Braces } 



o 



CTRL/Z 



Boldface words or characters in descriptions of statement or keyword 
syntax represent the keywords that you must use literally. 

Lowercase words or characters in descriptions of statement or keyword 
syntax represent values that you must supply. 

Italicized words in descriptions of statement or keyword syntax represent 
optional items. 

Typewriter font is used for examples and for variable, program, and rou- 
tine names within text. 

The word "Extension" used in a section heading indicates that all the in- 
formation described in the section is a DOMAIN Pascal extension to the 
ISO standard. 

Words printed in color denote user input to a program example or on a 
command line. Color also indicates an extension to ISO standard Pascal. 

Braces enclose comments in a program or command. 

A vertical bar separates items in a list of choices. 

Angle brackets enclose the name of a key on the keyboard; 
e.g.,<RETURN>. 

The notation CTRL/ followed by the name of a key indicates a control 
character sequence. You should hold down <CTRL> while typing the 
character. 

Horizontal ellipsis points in descriptions of statements and keyword syn- 
tax indicate that the preceding item may be repeated one or more times. 
In program examples, horizontal ellipsis points mean irrelevant parts of 
the example have been omitted. 



Vertical ellipsis points mean that irrelevant parts of a figure or example 
have been omitted. 
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Chapter 

iotrodyctioo 



This manual describes DOMAIN Pascal, which is our version of ISO standard Pascal (ISO 7185-1982 
Level 0) . Niklaus Wirth developed Pascal in the late 1960s to serve primarily for teaching and for realizing 
efficient, reliable, and portable programs. Since then, Pascal has become a widely used commercial lan- 
guage. Pascal contains a small set of constructs, and it is fairly easy to learn. 

You should be somewhat familiar with Pascal before attempting to use this manual. If you are not, please 
consult a good Pascal tutorial. (We've listed some good tutorials in the Preface.) If you are somewhat fa- 
miliar with Pascal or if you are expert in a highly block-structured language such as PL/I, then you should 
be able to write programs in DOMAIN Pascal after reading this manual. 



1 .1 A Sample Program 



The best way to get started with DOMAIN Pascal is to write, compile, and execute a simple program. Fig- 
ure 1-1 shows a simple program that you can use to get started. You are welcome to type in this program 
yourself, but you can use the getpas utility (described in the next section) to save some typing. 

PROGRAM getting_started; 

{A simple program to try out.} 

VAR 
X : integer 16; 
y : integer32; 

BEGIN 

write ('Enter an integer — '); 

readln(x) ; 

y := X * 2; 

writeln; 

writeln(y:l, ' is twice ', x:l); 
END. 

Figure 1-1. Sample Program 
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Suppose you store the program in file easy. pas. (Although it is not required that the filename end with 
the .pas extension, we recommend its use so that you can readily identify Pascal source programs.) 

To compile a program, simply enter the Shell command pas followed by the filename. If you do use the 
.pas extension, you can include or omit that extension at this step. DOMAIN Pascal doesn't care which 
way you type it. For example, to compile easy. pas, you can enter either of the following commands: 

$ pas easy 

or 

$ pas easy. pas 

The compiler creates an executable object in filename easy .bin. To execute this object you merely enter 
its name; for example: 

$ easy. bin 

Enter an integer — 15 

30 is twice 15 



1 .2 On-Line Sample Programs 



Many of the programs from this manual are stored on-line, along with sample programs from other 
DOMAIN manuals. These programs illustrate features of the Pascal language, and demonstrate program- 
ming with DOMAIN graphics calls and system calls. 

The sample programs are stored in one master file (to conserve disk space) . To extract a sample program 
from this master file, you must execute the getpas program. Getpas prompts you for the name of the sam- 
ple program and the pathname of the file to which you want to copy it. 

Before you use getpas for the first time, you must create the proper links. If the on-line examples are 
stored on your node, you only need to create the following single link: 

$ crl -com/getpas /doinain_examples/pascal_examples/getpas 

However, if the on-line examples are stored on another node, you need to create the following two links: 

$ crl /domain_exainples/pascal_examples @ 

$_ //othernode/domain_examples/pascal_examples 

$ crl -com/getpas //othernode/domain_examples/pascal_examples/getpas 

where othernode is the name of the disk on which the examples are stored. (The @ symbol on the first 
line of this example is the AEGIS shell's continuation character. You must include it to continue a com- 
mand on another line. In a DOMAIN/IX shell, the backslash (\) is the continuation character.) 
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Once you create the appropriate links, you can execute the getpas program. Here is a getpas demonstra- 
tion: 

$ getpas 

Welcome to getpas — please wait, initializing master file 



Enter the name of the program you want to retrieve, or 
enter HELP to get a list of available programs, or 
enter QUIT to exit — getting_started 

Program getting_started has been found. 

What pathname would you like to store getting_started in? 

(default is getting_started.pas) — easy. pas 
Program getting_started written to output file easy. pas 



Enter the name of the program you want to retrieve, or 
enter HELP to get a list of available programs, or 
enter QUIT to exit — quit 

Getpas warns you if you try to write over an existing file. 

As stated, many of this manual's sample programs are available from getpas. When one is, the name of 
the program appears just after the program listing. You simply have to run getpas and request the appro- 
priate program_name . 
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1 .3 Overview of DOMAIN Pascal Extensions 

DOMAIN Pascal supports many extensions to ISO/ANSI standard Pascal. The purpose of this section is to 
provide an overview of these extensions. For a complete list of all the extensions, see Appendix C. From [ 

Chapter 2 to Chapter 5, all extensions to the standard are marked in color like this or are noted explicitly 
in text as an extension. For a list of all omissions from the standard, see Appendix D. 

Naturally, the more you take advantage of DOMAIN Pascal extensions, the less portable your code will 
be. Therefore, if you are very concerned with portability, you should avoid using the following features. 

1.3.1 Extensions to Program Organization 

Chapter 2 describes the organization of a DOMAIN Pascal program contained within one file. Following is 
an overview of the extensions described within the chapter. You can: 

• Specify an underscore (_) or dollar sign ($) in an identifier. 

• Specify integers in any base from 2 to 16. 

• Specify comments in three ways. ,'^ 

• Specify that the compiler assign the code or data in your program to nondefault named sections. 

• Declare the label, const, type, and var declaration parts in any order. 

• Declare a define part, which is in addition to label, const, type, and var declaration parts. 
(Chapter 7 details this extension more fully.) 

• Use constant expressions when declaring constants, as long as the components of the expressions 

are constants. z^' 

\ 

\ 

• Use both identifiers and integers as labels. 

1.3.2 Extensions to Data Types 

Chapter 3 describes the data types supported by DOMAIN Pascal. DOMAIN Pascal supports the following 
extensions that allow you to: 

• Specify two additional pointer types. The first is a special pointer to procedures and functions. / 
The second is a universal pointer type that will hold a pointer to a variable of any data type. V.. 

• Initialize static variables in the var declaration part of your program. 

• Group variables into named sections for better runtime performance. 

• Specify variable and type attributes that let you better control compiler optimization. 

1.3.3 Extensions to Code 

Chapter 4 describes the action portion of your program. DOMAIN Pascal supports the following exten- 
sions to executable statements: 

• An addr function that returns the address of a specified variable 

• Bit operators or functions for bitwise and, not, or, and exclusive or operations ( 

• Three bit-shift functions (rshft, arshft, and Ishft) 
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• An open procedure for opening files and a close procedure for closing files 

• Many compiler directives that enable features like include files and conditional compilation 

o A discard procedure for explicitly discarding an expression's value and so suppressing some com- 
piler optimizations 

• An exit statement for jumping out of the current loop 

• A find procedure for locating a specified element in a file 

• A firstof and a lastof function for returning the first and last possible value of a specified data 
type 

• Some additional capabilities for the if statement 

• An in_range function for determining whether a specified value is within the defined range of an 
integer subrange or enumerated type 

• A max and a min function for finding the greater and lesser of two specified expressions 

• A next statement for skipping over the current iteration of a loop 

• A replace procedure that allows you to modify an existing element in a file 

• A return statement for causing a premature return to a calling procedure or function 

o A sizeof function for returning the size (in bytes) that a specified data type requires in storage 

o Additional type transfer functions that transform the data type of a variable or expression into 
some other data type 

• Some additional capabilities for the with statement 

1.3.4 Extensions to Routines 

Chapter 5 describes procedures and functions (routines). This chapter documents extensions that allow 
you to: 

• Specify the direction of parameter passing with the special in, out, and in out keywords. 

• Use the univ keyword to suppress parameter type checking. 

• Specify routine attribute clauses and routine options clauses to control how the compiler processes 
a routine. 



1.3.5 Extensions to Program Development 

Chapter 6 explains how to compile, bind, debug, and execute your program. Program development tools 
are an implementation-dependent feature of a Pascal implementation; that is, there is no standard for 
these tools. 

1.3.6 External Routines and Cross-Language Communication 

Chapter 7 explains how to write a program that accesses code or data written in another separately-com- 
piled module or library. It also describes how to access routines written in DOMAIN FORTRAN or 
DOMAIN C. The entire chapter describes implementation-dependent features. 
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1 .3.7 Extensions to I/O 

Chapter 8 describes input and output from a DOMAIN Pascal programmer's point of view. DOMAIN 
Pascal supports all the standard I/O procedures. In addition, it supports the open, close, find, and re- 
place procedures. As a further extension to the standard, DOMAIN Pascal permits you to easily access 
the operating system's I/O and formatting system calls. 

1.3.8 Errors 

Chapter 9 lists compiletime and runtime error messages and explains how to deal with them. Error mes- 
sages are an implementation-dependent feature of Pascal. 
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This chapter describes the building blocks and organization of a DOMAIN Pascal program. 

2.1 Building Blocl<s of DOIViAIN Pascai 

When describing a language implementation, it is customary to describe the basic building blocks or ele- 
ments of that implementation. This section defines identifiers, integers, real numbers, comments, and 
strings. It also explores case-sensitivity and spreading source code across multiple lines. 

2.1.1 Identifiers 

In this manual, the term "identifier" refers to any sequence of characters that meets the following criteria: 

• The first character is a letter 

• The remaining characters are any of the following: 

A..Z and a..z 

0..9 

_ (underscore) 

$ (dollar sign) 
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An identifier can be any length, but DOMAIN Pascal ignores any characters beyond the 32nd. Therefore, 
DOMAIN Pascal cannot distinguish between the following two identifiers (the column ruler at the top is 
there to help you with character counting): 

{ ruler: 12 3} 

{ 1234567890123456789012345678901234 } 



Account s_receivable_kansas_city_kn 
Account s_receivable_kansas_city_mo 

Identifiers are case-insensitive. 

2.1.2 Integers 

The first character of an integer must be a positive sign (+), a negative sign (-), or a digit. Each succeed- 
ing character must be a digit. (See the "Integers" section in Chapter 3 for a description of the range of 
various integer data types.) 

An unsigned integer must begin with a digit. Each succeeding character must be a digit. 

Note that Pascal prohibits two consecutive mathematical operators. If you want to divide 9 by negative 3, 
you might be tempted to use the following expression: 

9 DIV -3 

However, this produces an error, since Pascal interprets the negative sign as the subtraction operator (and 
that makes two mathematical operators in a row) . Where the sign of an integer can be confused for an ad- 
dition or subtraction operator, enclose the integer with parentheses. Thus, the correct expression for 9 di- 
vided by negative 3 is: 

9 DIV (-3) 

Pascal assumes a default of base 10 for integers. If you want to express an integer in another base, use the 
following syntax: 

base#value 

For base, enter an integer from 2 to 16. For value, enter any integer within that base. If the base is 
greater than 10, use the letters A through F (or a through f) to represent digits with the values 10 through 
15. 

For example, consider the following integer constant declarations: 



half_life 


= 5260; 


/* 


default (base 


10) 


*/ 


hexograms 


= 16#lc6; 


/* 


hexadecimal (base 


16) 


*/ 


luck 


= 2#10010; 


/* 


binary (base 


2) 


*/ 


wheat 


= 8#723; 


/* 


octal (base 


8) 


*/ 



2.1.3 Real Numbers 

DOMAIN Pascal supports the standard Pascal definition of a real number, which is 

integer. t;ns/gned_/nfegferE//7^egfe/' 

In other words, a valid real number may or may not contain a decimal point. If the number contains a 
decimal point, you must specify at least one digit to the left of the decimal point and at least one digit to 
the right of the decimal point. To express expanded notation (powers of 10), use the letter e or E followed 
by the exponent; for example: 
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5.2 


means 


+5.2 


5.2E0 


means 


+5.2 


-5 . 2E3 


means 


-5200.0 


5 . 2E-2 


means 


+0.052 



o 



Compare the right and wrong way for writing decimals in your program: 

. 5 {wrong} 

0.5 {right} 
5E1 {right} 

Note that although using .5 in your source code causes an error at compiletime, entering .5 as input data 
to a real variable does not cause an error at runtime. 

2.1.4 Comments 

You can specify comments in any of the following three ways: 

{ comment } 
( comment *) 
"comment" 

(The spaces before and after the comment delimiters are for clarity only; you don't have to include these 
spaces. If you use a compiler directive within comment delimiters you cannot use spaces; see the listing for 
"Compiler Directives" in Chapter 4 for details.) For example, here are three comments: 

{ This is a comment. } 
(* This is a comment. *) 
"This is a comment." 

Unlike standard Pascal, the comment delimiters of DOMAIN Pascal must match. For example, a com- 
ment that starts with a left brace doesn't end until the compiler encounters a right brace. Therefore, you 
can nest comments, for example: 

{ You can (*nest*) comments inside other comments. } 

Standard Pascal does not permit nested comments. If you want to use unmatched comment delimiters, as 
standard Pascal allows, you must compile with the -iso switch. Chapter 6 describes this switch. 

The DOMAIN Pascal compiler ignores the text of the comment, and interprets the first matching delimit- 
er as the end of the comment. 

Use quotation marks to set off comments only if you are converting existing applications to the DOMAIN 
system. In all other programs, you should use either of the other two methods. 

Note that Pascal comments can stretch across multiple lines; for example, the following is a valid com- 
ment: 

{ This is a comment 
that stretches across 
multiple lines. } 

NOTE: You can use the -comchk compiler option (described in Chapter 6) to warn you 
if a new comment starts before an old one finishes. This option can help you find 
places where you forgot to close a comment. 
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2.1.5 Strings 

We refer to strings throughout this manual. In DOMAIN Pascal, a string is a sequence of characters that -^ 

starts and ends with an apostrophe. Unlike an identifier, you can use any printable character within a 

string. Here are some sample strings: ^—-^ 

'This is a string.' 

'18' 

'b[2-{q"%pl' 

'can"t' 

To include an apostrophe in a string, write the apostrophe twice; for example: 

'I can"t do it.' 
'Then don"t try!' 

NOTE: Within a string, DOMAIN Pascal treats the comment delimiters as ordinary 
characters rather than as comment delimiters. 

2.1.6 Case Sensitivity 

DOMAIN Pascal, like standard Pascal, is case-insensitive to keywords and identifiers (i.e., variables, con- 
stants, types, and labels), but case-sensitive to strings. That is, DOMAIN Pascal makes no distinction be- 
tween uppercase and lowercase letters except within a string. For example, the following three uses of the 
keyword begin are equivalent: 

BEGIN 
begin 
Begin 

However, the following two character strings are not equivalent: 

'The rain in Spain' ; 
'THE RAIN IN SPAIN' ; 



2.1.7 Spreading Source Code Across iVIultiple Lines 

In Pascal, you can start a statement or declaration at any column and spread it over as many lines as you 
want. However, note that you cannot split a token (keyword, identifier, or string) across a line. For exam- 
ple, consider the writeln statement which can take character strings as an argument. The following use of 
writeln is wrong because it splits the string across a line: 

WRITELN ('This is an uninteresting 
long string') ; 

Instead, the line should appear this way: 

WRITELNCThis is an uninteresting long string'); 

NOTE: By default, any text file you open for reading can have a maximum of 256 char- 
acters per line. You can specify an optional buffer size when you open the file, 
however, to change that default. 
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2.2 Organization 



You can write a DOMAIN Pascal program in one file or across several files. This section explains the 
proper structure for a program that fits into one file. Chapter 7 details the structure for a program that is 
spread over several files. 

A DOMAIN Pascal program takes the format shown in Figure 2-1. 



program heading 
declarations 

routines 

Begin 



action 



End. 



Label deci part 

Const deci part 

Type deci part 

Var deci part 



o 



1 



routine heading 
declarations — 



nested routines 
Begin 

action 
End; 



Figure 2-1 . Format of Main Program in DOMAIN Pascal 

Note that routines are themselves declarations. 

Figure 2-2 is a labeled program designed to help you understand the structure of a DOMAIN Pascal pro- 
gram. 
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PROGRAM labeled; {program heading} 

{Start of the declaration part of the main program. } 
{These declarations will be global to the entire program.} 

LABEL {LABEL declaration part} 

finish; 

CONST {CONST declaration part} 

axiom = 'Clarity is wonderful!'; 

TYPE {TYPE declaration part} 

flavors = (mint, lime, orange, beige); 

VAR {VAR declaration part} 

X, y, z : integer; 
ice_cream : flavors ; 
{End of the declaration part of the main program.} 



{Start of the roots procedure.} 

Procedure roots; {routine heading} 

{Start of the declaration part of roots.} 
{These declarations will be local to roots.} 

VAR {VAR declaration part} 

q : real; 
{End of the declaration part of roots.} 

BEGIN {Start of the action part of roots.} 

write ('Enter a number — '); readln(q) ; 

writelnCThe square root of ',q:-l, ' is ',sqrt(q)); 
END; {End of the action part of roots.} 

{End of the roots procedure.} 



BEGIN {Start of the action part of the main program.} 

writeln (axiom) ; 

x:=5; y:=7; z:=x+5; 

if z > 100 then goto finish; 

for ice_cream := mint to beige do 
writeln (ice_cream) ; 

roots; 
finish: 
END. {End of the action part of the main program.} 



Figure 2-2. Labeled Main Program 
The following subsections detail the parts of a program. 
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2.2.1 Program Heading 

Your program must contain a program heading. The program heading has the following format: 

program name (filejist), code_section_name, data_section_name; 

In DOMAIN Pascal, as in standard Pascal, you must supply a name for the program. Name must be an 
identifier. This identifier has no meaning within the program, but is used by the binder, the librarian, and 
the loader. (See the DOMAIN Binder and Librarian Utility manual for details on these utilities.) 

In standard Pascal you can supply an optional filejist to the program heading. The filejist specifies the 
external files (including standard input and output) that you are going to access from the program. How- 
ever, unlike standard Pascal, the filejist in a DOMAIN Pascal program has no effect on program execu- 
tion; the compiler ignores it. (For details on I/O, see Chapter 8.) 

Code_section_name and data_sectlon_name are optional elements of the program heading. Use them to 
specify the names of the sections in which you want the compiler to store your code and data. A section is 
a named contiguous area of memory in which all entities share the same attributes. (See the DOMAIN 
Binder and Librarian Reference for details on sections and attributes.) By default, DOMAIN Pascal as- 
signs all the code in your program to the PROCEDURES section and all the data in your program to the 
DATA$ section. To assign your code and data to nondefault sections, specify a code_section_name and a 
datajsectionjiame. 

NOTE: In addition to nondefault code and data section names for the entire program, 
you can also specify a nondefault section name for a procedure, a function, or a 
group of variables. See Chapter 5 for an explanation of how to assign section 
names to procedures and functions, and see Chapter 3 to learn how to assign 
section names to groups of variables. 

Let's now consider some sample program headings. Despite the options available, most DOMAIN Pascal 
program headings can look as simple as the following: 

Program trapezoids; 

Those of you desiring to write standard Pascal programs will also probably want to supply a filejist as in 
the next example: 

Program trapezoids (input, output, dataf ile) ; 

Finally, those of you wanting to capitalize on certain runtime features may wish to define your own section 
names. For example, if you want the compiler to store the code into section mycode and the data into 
section mydata, you would issue the following program heading: 

Program trapezoids, mycode, mydata; 



2.2.2 Declarations 

The declarations part of a program is optional. It can consist of zero or more label declaration parts, 
const declaration parts, type declaration parts, and var declaration parts. DOMAIN Pascal allows you to 
specify these parts in any order. 

2.2.2.1 Label Declaration Part 

You define labels in the label declaration part. A label has only one purpose — to act as a target for a 
goto statement. In other words, the statement 

GOTO 40; 
only works if you have defined 40 as a label. 
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The format for a label declaration part is 

label 

label 1, ... label N; 

A label is either an identifier or an unsigned integer. If there are multiple labels, you must separate them 
with commas. Remember, though, to put a semicolon after the final label. 

For example, the following is a sample label declaration: 

LABEL 

40, reprompt, finish, 9999; 

See Chapter 4 for a description of the goto statement. 

2.2.2.2 Const Declaration Part 

You define constants in the const declaration part. A constant is a synonym for a value that will not (and 
cannot) change during the execution of the program. The const declaration part takes the following syn- 
tax: 

const 

identifierl = valuel ; 



IdentifierN = valueN; 

An identifier is any valid DOMAIN Pascal identifier. A value must be a real, integer, string, char, or set 
constant expression. Value can also be the pointer expression nil. 

For example, here is a sample const declaration part: 

CONST 

pi = 3.14; {A real number.} 

cup = 8 ; {An integer . } 

key = 'Y' ; {A character.} 

blank = ' '; {A character.} 

words = 'To be or not to be'; {A string.} 

vowels = ['a', 'e', 'i', 'o', 'u']; {A set.} 

ptrl = nil; {A pointer.} 

The preceding sample involves simple expressions; however, you can also specify a more complex expres- 
sion for value. Such an expression can contain the following types of terms: 

• A real number, an integer, a character, a string, a set, a Boolean, or nil 

• A constant that has already been defined in the const declaration part (note that you cannot use a 
variable here) 

o Any predefined DOMAIN Pascal function (e.g., chr, sqr, Ishft, sizeof, but only if the argument 
to the function is a constant) 

• A type transfer function 
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You can optionally separate these terms with any of the following operators: 

Operator Data Type of Operand 

+, -, * Integer, real, or set 

/ Real 

mod, div, !, &, - Integer 

Chapter 4 describes these operators. 

For example, the following const declaration part defines eight constants: 

CONST 

X = 10; 

y = 100; 

z = X + y; 

current_year = 1994; 

leap_offset = (current_year mod 4) ; 
^\ bell = chr(7) ; 

*. ] pathname = '//et/go_home' ; 

pathname_len = sizeof (pathname) ; 

2.2.2.3 Type Declaration Part 

Chapter 3 details the many predeclared data types DOMAIN Pascal supports. In addition to these Pascal- 
defined data types, you can create your own data types in the type declaration part. After creating your 
own data type, you can then declare variables (in the var declaration part) that have these data types. The 
format for a type part is as follows: 

type 

identifier 1 = data_type1 ; 



o 



identifierN = dataJtypeN; 

An identifier is any valid DOMAIN Pascal identifier. A data_type is any predeclared DOMAIN Pascal 
data type (like integer or real), any data type that you create, or the identifier of a data type that you cre- 
ated earlier in the type declaration part. For example, here is a sample type declaration part: 

TYPE 

long = integer32; {A predeclared DOMAIN Pascal data type.} 

student_name = array[1..20] of long; {A user-defined data type.} 

colors = (magenta, beige, mauve); {A user-defined data type.} 

hue = set of colors; {A user-defined data type.} 

table = array [magenta. .mauve] of real; {A user-defined data type.} 
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2.2.2.4 Var Declaration Part 

Declare variables in the var declaration part. A variable has two components — a name and a data type. 
The format for the var declaration part is: 



var 



identifierjisti : data_type1 ; 



identifierJistN : dataJtypeN; 

An identifierjist consists of one or more identifiers separated by commas. Each identifier in the identifi- 
erjist has the data type of data_type. Data_type must be one of these: 

• A predeclared DOMAIN Pascal data type 

• A data type you declared in the type declaration part 

• An anonymous data type (that is, a data type you declare for the variables in this identifierjist 
only) 

For example, consider the following type declaration part and var declaration part: 

TYPE 

names = array [1.. 20] of char; 
colors = (red, yellow, blue); 



.y 



VAR 



counter, x, y 

angles 

a_letter 

couch_colors 
evil 

mystery_guest 

seniors 

pet 



integer; {integer is a predeclared DOMAIN Pascal 

data type. } 
real; {real is a predeclared DOMAIN Pascal 

data type. } 
char; {char is a predeclared DOMAIN Pascal 

data type. } 
colors; {colors is defined in the TYPE part. } 
boolean; {boolean is a predeclared DOMAIN Pascal 

data type, 
names; {names is defined in the TYPE part. } 
67.. 140; {An anonymous subrange data type. } 
(cat, dog); {An anonymous enumerated data type. } 



In the preceding example, note that counter, x, and y are three variables that have the same data 
type (integer). 

2.2.2.5 Define Declaration Part — Extension 

In addition to the const, type, var, and label declaration parts of standard Pascal, DOMAIN Pascal also 
supports an optional define declaration part, which is described in Chapter 7. 
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2.2.3 Routines 

A program can contain zero or more routines. There are two types of routines in DOMAIN Pascal: proce- 
dures and functions. A routine consists of three parts: a routine heading, an optional declaration part, and 
an action part. 

2.2.3.1 Routine Heading 

Routine headings take the following format: 

attributejist procedure name (parameterjist); routine jDptions', 

or 

attributejist function name (parameterjist) : data_type; routinejoptions 

where: 

o attributejist is optional. Inside the attributejist, you can specify nondefault section names for 
the routine's code and data. For a description, see Chapter 5. 

• name is an identifier. You call the routine by this name. 

• parameterjist is optional. It is here that you declare the names and data types of all the parame- 
ters that the routine expects from the caller. See Chapter 5 for details on the parameterjist. 

• data_type is the data type of the value that the function returns. The difference between a proce- 
dure and a function is that the name of a procedure is simply a name, but the name of a function 
is itself a variable with its own data_type. You must assign a value to this variable at some point 
within the action part of the function. (It is an error if you don't.) You cannot assign a value to 
the name of a procedure. (It is an error if you do.) 

o routine_options is an optional element of the routine heading. You can specify characteristics of 
the routine such as whether or not it can be called from another routine. Chapter 5 describes the 
routinejoptions. 

2.2.3.2 Declaration Part of a Routine 

The optional declaration part of a routine follows the same rules (with one exception) as the optional dec- 
laration part under the program heading. The constants, data types, variables, and labels are local to the 
routine declaring them and to any routines nested within them. (See the "Global and Local Variables" 
and "Nested Routines" sections at the end of this chapter for details.) 

The one difference between the declaration part of a routine and the declaration part of the main pro- 
gram is that the declaration part of a routine cannot contain a define declaration part. 

2.2.3.3 Nested Routines 

You can optionally nest one or more routines within a routine. See the "Nested Routines" section at the 
end of this chapter for details. 
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2.2.3.4 Action Part of a Routine 

The action part of a routine starts with the keyword begin and finishes with the keyword end. Between 
begin and end you supply one or more DOMAIN Pascal statements. (See Chapter 4 for a description of 
DOMAIN Pascal statements.) You must place a semicolon after the final end in a routine. For example, 
consider the following sample action part of a routine: 

BEGIN 

X := X * 100; 

writeln(x) ; 
END; 



2.2.4 Action Part of the Main Program 

The action part of the main program is almost identical to the action part of a routine. Both start with be- 
gin, both finish with end, and both contain DOMAIN Pascal statements in between. The only difference 
is that you must place a period (rather than a semicolon) after the final end in the main program. For ex- 
ample, consider the following sample action part of the main program: 

BEGIN 

X := X * 100; 

writeln(x) ; 
END. 



2.3 Global and Local Variables 

The declarations in the declaration part of the main program are global to the entire program. The decla- 

rations in the declaration part of a routine are local to that routine (assuming no nesting) . For example, ^ ^ 

consider the following program. In it, variable g is global and variable 1 is local to procedure addlOO; V_ -^ 

Program scope; 
VAR 

g : integerl6; 

Procedure addlOO; 
VAR 

1 : integerlB; 
BEGIN r~^^ 

1 := g + 100; {Variable 1 is accessible within this procedure only,} v^ 
{while g is global and so is accessible anywhere. } 
END; 



BEGIN 

g := 10; {Variable g is accessible because it is global. } 

addlOO; {Call the procedure. } 

{Variable 1 is not accessible here because it is} 
{local to procedure addlOO. } 

END. 



V_. 
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What happens when you specify a local variable with the same name as a global variable? To answer this 
question, here are two more programs. In the program on the left (global_example), x is declared as a 
global variable. In the program on the right (local_example), x is declared twice. The first declaration 
specifies x as a global variable. The second declaration declares x as local to procedure convert. 



Program global_example; 



Program local_example ; 



VAR {global declarations} 
X : integerlB; 



VAR {global declarations} 
X : integerl6; 



PROCEDURE convert; 



BEGIN 

X := -10; 

writeln('In convert, x=',x:l); 
END; 



PROCEDURE convert; 

VAR {local declarations} 

X : integerl6; 
BEGIN 

X := -10; 

writeln('In convert, x=',x:l); 
END; 



BEGIN {main} 

X := +10; 

convert ; 

writeln('In main, x=',x:l); 
END. 



BEGIN {main} 

X := +10; 

convert ; 

writeln(In main, x=' , x:l); 
END. 



If you execute these programs, you get the following results: 



o 



Execution of global_example 
In convert, x= -10 
In main, x= -10 



Execution of local_example 
In convert , x= -10 
In main, x= 10 



In program local_example, within procedure convert, the declaration of the local variable x overrides 
the global declaration of x. Within convert, the fact that the local variable and the global variable have 
the same name (x) prevents procedure convert from accessing the global variable x at all. 

Both programs are available on-line and are named global_example and local_example. 

2.4 Nested Routines 

A nested routine is a routine that is declared inside another routine. A nested routine can access any de- 
clared object (label, constant, type, or variable) in a routine outside it. The reverse is not true; that is, a 
routine cannot access an object in a routine nested inside it. Thus, the purpose of nesting routines is to 
create a hierarchy of access. You might view declared objects in the following way: 

• Global to the entire program. 

• Local to a single routine. 

• Local to the routine it is defined in and to all routines nested within it (i.e., neither truly local nor 
truly global). This is termed an "intermediate level" object. 

Note that the main program is itself a routine, and that all routines are nested at least one level inside it. A 
routine can call any routine nested one level inside it, but cannot explicitly call any routine nested two or 
more levels inside it. A routine can also call any routine at its level or outside it, though a routine cannot 
explicitly call the main program. 

For example, consider the program in Figure 2-3. Procedure one is nested inside the main program. Pro- 
cedures twoa and twob are both nested inside procedure one. The most-nested procedures (twoa and 
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twob) can access the most variables. The least-nested procedure (the main program) can access the least 
number of variables. 

Program nesting_exaraple; 

VAR 

g ; integerie ; 

procedure one; 
VAR 

1 : integerie ; 

procedure twoa; 
VAR 

nl : integerie; 
BEGIN {twoa} 
{can access g, 1, and nl.} 

nl := 1 + g + 500; 
END; {twoa} 

n, 

procedure twob; — '' 

VAR 

n2 : integerie; 
BEGIN {twob} 
{can access g, 1, and n2.} 

n2 := 1 + g + 1000; 
END; {twob} 

^~\ 
BEGIN {one} V ,^ 

{can access g and 1.} 

1 := g + 10; 

twob; 
END; {one} 

BEGIN {main program} 
{can only access g.} 

g := 1; 
g := g * 2; 
one; 
END. {main program} 

Figure 2-3. Nesting Example 

Note that the main program can call procedure one, but cannot call procedure twoa or twob (since they 
are nested two levels inside it). Procedure one can call procedure twoa or twob. Procedure twob can 
call procedure twoa or one. In Pascal, you cannot make a forward reference to a routine unless you de- 
clare the routine with the forward option (described in Chapter 5) . If you used forward in this example, 
procedure twoa could call twob or one. 
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This chapter explains DOMAIN Pascal data objects. Here, we explain how you declare variables using the 
predeclared DOMAIN Pascal data types, and how you can define your own data types. In addition, this 
chapter shows how DOMAIN Pascal represents data types internally. 



3-1 Data Type Overview 



The data types of DOMAIN Pascal can be sorted into three groups — simple, structured, and pointer. 
The following list shows the supported simple data types: 

• INTEGERS — DOMAIN Pascal supports the three predeclared integer data types integer, inte- 
gerl6, and integer32. 

• REAL NUMBERS — DOMAIN Pascal supports the three predeclared real number data types 
real, single, and double. 

• BOOLEAN — DOMAIN Pascal supports the predeclared data type boolean. 

• CHARACTER ~ DOMAIN Pascal supports the predeclared char data type. 

• ENUMERATED — DOMAIN Pascal supports enumerated data types. 

• SUBRANGE — DOMAIN Pascal supports a subrange of scalar data types. The scalar data types 
are integer, Boolean, character, and enumerated. 

You can use the simple data types to build the following structured data types: 

• SETS — DOMAIN Pascal permits you to create a set of elements of a scalar data type. 

• RECORDS — DOMAIN Pascal supports the record and packed record data types. 

• ARRAY — DOMAIN Pascal supports the array data type. It also supports a predeclared charac- 
ter array type called string. 
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• FILES — DOMAIN Pascal supports the file and text data types. 

You can declare a pointer data type that points to any of the previous data types, or you can declare one 
of these other pointer data types: 

o Univ_ptr — DOMAIN Pascal supports a predeclared universal pointer data type that is compat- 
ible with any pointer type. 

o PROCEDURE AND FUNCTION DATA TYPES ~ DOMAIN Pascal supports a special data type 
that points to procedures and functions. 

The program shown in Figure 3-1 contains sample declarations of all the data types. This program is avail- 
able on-line and is named sample_types. 

PROGRAM sample types ; 



TYPE 

real_pointer = "real; 
writers = (Amy, David, Phil) 
element = record 



atomic_number 
atomic_weight 
half_life 
end; 



INTEGER16 ; 
SINGLE ; 
DOUBLE ; 



{This is a pointer type. } 
{This is an enumerated type.} 
{This is a record type. } 



VAR 



il : INTEGER; 
i2 : INTEGER16; 
13 : INTEGERS 2; 
rl : REAL; 
r2 : SINGLE; 
r3 : DOUBLE; 
consequences : 
onec : CHAR ; 
teenage_years : 
good_wr iters : 
tw 
e 



BOOLEAN ; 



: 13.. 19; {teenage_years is a subrange variable. 

: writers; {good_writers is an enumerated variable. 
SET OF writers; {tw is a set variable, 

element; {e is a record variable. 

cat_nums : array[1..5] of INTEGER16; {cat_nums is an array variable. 
a_sentence : STRING; {a_sentence is an array variable of 80 characters. 
hamlets_soliloquy : TEXT; {hamlets_soliloquy is a text file variable. 
periodic_table : FILE OF element; {periodic_table is a file variable. 

{rl_ptr is a pointer variable. 
{Any_ptr is a universal pointer variable. 
INTEGER) ; 

{pp is a pointer to a procedure variable.} 



rl_ptr : 


real_pointer; 




Any_Ptr : 


UNIV_PTR; 




PP : 


"PROCEDURE (IN 


X 


BEGIN 






writeln( 'Greetings. ' ) 




END. 







Figure 3-1. Program Declaring All Available Data Types 



3.2 Integers 



This section explains how to declare variables as integers, how to initialize integer variables, and how to 
define integer constants. It also explains how DOMAIN Pascal represents integers internally. 



Data Types 



3-2 



o 



o 



3.2.1 Declaring Integer Variables 

DOMAIN Pascal supports the following three predeclared integer data types: 

o Integer — Use it to declare a signed 16-bit integer. A signed 16-bit integer variable can have any 
value from -32768 to +32767. 

• Integerl6 — Use it to declare a signed 16-bit integer. (Integer and integerl6 have identical 
meanings.) 

• Integer32 — Use it to declare a signed 32-bit integer. A signed 32-bit integer variable can be any 
value from -2147483648 to +2147483647. 

For example, consider the following integer declarations: 

VAR 

X, y, 2 : INTEGER; 
quarts : INTEGER16; 
social_security_nuraber : INTEGER32; 

If you want to define unsigned integers, you must use a subrange declaration (refer to the "Subrange" sec- 
tion later in this chapter). 

3.2.2 Initializing Integer Variables — Extension 

DOMAIN Pascal permits you to initialize the values of integers within the variable declaration in most 
cases. You initialize a variable by placing a colon and equal sign (:=) immediately after the data type. For 
example, the following excerpt initializes X and Y to 0, and Z to 7000000: 

VAR 

X,Y : INTEGER16 := 0; 

Z : INTEGER32 := 7000000; 

If the variable declaration occurs within a procedure or function, you cannot initialize the variable at the 
declaration unless it has been declared static. This is because storage within routines is dynamic and so 
variables in them do not necessarily retain their values between executions. For example, the following is 
incorrect: 

FUNCTION do_nothing(IN OUT x : INTEGER) : BOOLEAN; 
VAR 

init_value : INTEGER := 0; {Wrong!} 

This is the correct way to initialize the variable at its declaration in a routine: 
init_value : STATIC INTEGER := 0; 

See Chapter 7 for more information on the static attribute. 

3.2.3 Defining Integer Constants 

When you declare an integer constant, DOMAIN Pascal internally represents the value as a 32-bit inte- 
ger. For example, in the following declarations, DOMAIN Pascal represents both poco and grande as 
32-bit integers. 

CONST 

poco =6; 

grande = 6000000; 
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You can specify an integer constant anywhere in the range -2147483648 to +2147483647. 

It is also possible to compose constant integers as a mathematical expression. (Refer to the "Const Decla- 
ration Part" section in Chapter 2 for details.) 

The predeclared integer constant maxint has the value +32767. 



V„ 



3.2.4 Internal Representation of Integers 

DOMAIN Pascal represents a 16-bit integer (types integer and integerl6) as two contiguous bytes, as 
shown in Figure 3-2. Bit 15 contains the most significant bit (MSB), and bit contains the least significant 
bit (LSB). If the integer is signed, bit 15 contains the sign bit. 



15 (MSB) 



(LSB) 



Byte 


Byte 1 



Figure 3-2. 16-Bit Integer Format 

DOMAIN Pascal represents a 32-bit integer (type integer32) in four contiguous bytes as illustrated in Fig- 
ure 3-3. The most significant bit in the integer is bit 31; the least significant bit is bit 0. If the integer is 
signed, bit 31 contains the sign bit. 



31 (MSB) 



15 



16 



Byte 


Byte 1 


Byte 2 


Byte 3 



(LSB) 






Figure 3-3. 32- Bit Integer Format 



3.3 Real Numbers 



This section describes how to declare variables as real numbers, how to define real numbers as constants, 
and how DOMAIN Pascal represents real numbers internally. 

3.3.1 Declaring Real Variables 

DOMAIN Pascal supports the following real data types: 

o Real — Use it to declare a signed single-precision real variable. DOMAIN Pascal represents a 
single-precision real number in 32 bits. A single-precision real variable has approximately seven 
significant digits. 

• Single — Same as real. 

• Double — Use it to declare a signed double-precision real variable. DOMAIN Pascal represents 
a double-precision real number in 64 bits. A double-precision real variable has approximately 16 
significant digits. 
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For example, consider the following declarations: 

VAR 

1 , m , n : REAL ; 
winning_time : SINGLE; 
cpu_time : DOUBLE; 



3.3.2 Initializing Real Variables — Extension 

DOMAIN Pascal permits you to initialize the values of real numbers within the variable declaration in 
most cases. You initialize a value by placing a colon and equal sign (:=) immediately after the data type. 
For example, the following excerpt initializes variable pi to 3.14: 

VAR 

pi : SINGLE := 3.14; 

If you declare a variable as single or real, and if you attempt to initialize it to a number with more than 
seven significant digits, then DOMAIN Pascal rounds (it does not truncate) the number to the first seven 
significant digits. For example, if you try to initialize pi this way 

VAR 

pi : SINGLE := 3.1415926535; 

DOMAIN Pascal rounds pi to 3.141593. 

As with integers, if the variable declaration occurs within a procedure or function, you cannot initialize the 
variable at the declaration unless it has been declared static. This is because storage within routines is dy- 
namic and so variables in them do not necessarily retain their values between executions. For example, 
the following is incorrect: 

FUNCTION do_nothing(IN OUT x : REAL) : BOOLEAN; 
VAR 

init_value : REAL := 0.0; {Wrong!} 

This is the correct way to initialize the variable at its declaration in a routine: 
init_value : STATIC REAL := 0.0; 

See Chapter 7 for information on the static attribute. 

3.3.3 Defining Real Constants 

When you use a real number as a constant, DOMAIN Pascal automatically defines the constant as a dou- 
ble-precision real number. This is true even if the constant can be accurately represented as a single-pre- 
cision real number. However, when you use a real constant in a mathematical operation with a single-pre- 
cision number, DOMAIN Pascal automatically rounds the constant to a single-precision number to pro- 
duce a more accurate result. The following fragment defines four valid (and one invalid) real constants: 

Valid real number. } 

Valid, symbolizes 2.0 * (lO^^) } 

Valid, symbolizes 6.67 * (10-^1) } 

Not a valid real number because it does } 

not contain a digit to the left of the } 

decimal point. } 

Valid real number.} 
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CONST 








N 


= 


24.57; 




N2 


= 


2E19 ; 




G 


= 


6.67E- 


-11; { 


X 


= 


.5; 




X2 


— 


0.5; 





3.3.4 Internal Representation of Real Numbers 

Single-precision floating-point numbers (types real and single) occupy four contiguous bytes of a long 
word, as shown in Figure 3-4. DOMAIN Pascal uses the IEEE standard format for representing 32-bit 
real values. Bit 31 is the sign bit with "1" denoting a negative number. The next eight bits contain the ex- 
ponent plus 127. The remaining 23 bits contain the mantissa of the number without the leading 1. 
(DOMAIN Pascal stores the mantissa in magnitude form, not in two's-complement.) 



v^.,y 



31 


30 22 16 


$ 


Exponent + 127 


Mantissa 


Mantissa (cont.) 



15 



Figure 3-4. Single-Precision Fioating-Point Format 

For example, Pascal represents +100.5 in the following manner: 

0100001011001001 
0000000000000000 

The number breaks into sign, exponent, and mantissa as follows: 

sign — (positive) 

exponent — 10000101 (133 in decimal) 

significant part of mantissa — 1001001 

The exponent is 133; 133 is equal to 127 plus 6. Therefore, you can view the mantissa bits as follows: 

bit 22 represents 2 to the fifth power 
bit 21 represents 2 to the fourth power 
bit 20 represents 2 to the third power 



bit 16 represents 2 to the negative first power. 

You get 100.5 by adding (2^ + 25 + 22 + 2-i ). 

A number with a negative exponent is stored differently. Pascal represents 5E-2 as follows: 

0011110101001100 
1100110011001101 

The number breaks into sign, exponent, and mantissa as follows: 

sign — (positive) 

exponent — 01111010 (122 in decimal) 

significant part of mantissa — 10011001100110011001101 
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The exponent is 122; 122 is equal to 127 plus -5. Therefore, you can view the mantissa bits as follows: 

bit 22 represents 2 to the -6 power 
bit 21 represents 2 to the -7 power 
bit 20 represents 2 to the -8 power 



bit represents 2 to the -29 power 

You get 5E-2 by adding 2-5 + 2-^ + 2-^ and so on. 

DOMAIN Pascal represents double-precision floating-point numbers (type double) in eight bytes of a 
long word (64 bits) . Figure 3-5 illustrates the format. The first bit (bit 63) contains the sign bit. The next 
11 bits contain the exponent plus 1023. The remaining 52 bits hold the mantissa, without the leading 1. 



63 


62 51 48 


$ 


Exponent + 1023 


Mantissa 


Mantissa (cont.) 


Mantissa (cont.) 


Mantissa (cont.) 



15 



Figure 3-5. Double-Precision Floating-Point Format 



3.4 Booleans 

A Boolean variable can have only one of two values — true or false. This section describes how you de- 
clare Boolean variables, how you define Boolean constants, and how DOMAIN Pascal represents Boolean 
variables internally. 

3.4.1 Initializing Boolean Variables — Extension 

DOMAIN Pascal permits you to initialize the values of Boolean variables within the variable declaration in 
most cases. You initialize a value by placing a colon and equal sign (:=) immediately after the data type. 
For example, the following excerpt declares liar to be a Boolean variable with an initial value of false: 

VAR 

liar : boolean : = false; 

If the variable declaration occurs within a procedure or function, you cannot initialize the variable at the 
declaration unless it has been declared static. This is because storage within routines is dynamic and so 
variables in them do not necessarily retain their values between executions. For example, the following is 
incorrect: 

FUNCTION do_nothing(IN OUT x : INTEGER) : BOOLEAN; 
VAR 

liar : BOOLEAN := false; {Wrong!} 
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This is the correct way to initialize the variable at its declaration in a routine: 
liar : STATIC BOOLEAN := false; 

See Chapter 7 for information on the static attribute. 

3.4.2 Defining Booiean Constants 

To define a Boolean constant, simply write the name of the constant, followed by an equal sign, and con- 
cluding with either true or false. For instance, the following excerpt defines constant virtue and sets it 
to true: 

CONST 

virtue = true; 

Notice that you do not enclose true or false inside a pair of apostrophes. 

3.4.3 internal Representation of Booiean Variabies 

DOMAIN Pascal represents Boolean values in one byte. The system sets all eight bits to 1 for true and 
sets all eight bits to for false. However, a Boolean field in a packed record will have a different alloca- 
tion (see the "Internal Representation of Packed Records" section later in this chapter for details). 

3.5 Characters 

This section describes how you declare a variable as a character data type, how you define characters as 
constants, and how DOMAIN Pascal represents characters internally. 

3.5.1 Deciaring Character Variabies 

Use the char type to declare a variable that holds one character; for example: 

VAR 

a_letter, a_better_letter : CHAR; 

To declare a variable that holds more than one character you must use an array or the predefined type 
string (both of which are detailed in the "Arrays" section later in this chapter). 

3.5.2 initializing Ciiaracter Variabies — Extension 

DOMAIN Pascal permits you to initialize the values of character variables within the variable declaration 
in most cases. You initialize a value by placing a colon and equal sign (:=) immediately after the data type. 
For example, the following excerpt declares cl as a char variable with an initial value of a: 

VAR 

Cl : CHAR := 'a'; 

Notice that you must enclose the character in apostrophes. 

If the variable declaration occurs within a procedure or function, you cannot initialize the variable at the 
declaration unless it has been declared static. This is because storage within- routines is dynamic and so 
variables in them do not necessarily retain their values between executions. For example, the following is 
incorrect: 

FUNCTION do_nothing(IN OUT x : INTEGER) : BOOLEAN; 
VAR 

best_grade : CHAR := 'A'; {Wrong!} 
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This is the correct way to initialize the variable at its declaration in a routine: 
best_grade : STATIC CHAR := 'A'; 

See Chapter 7 for information on the static attribute. 

3.5.3 Defining Character Constants 

There are two common methods of assigning character constants. The first is to simply enclose a character 
inside a pair of apostrophes; for example 

CONST 

cl = 'b' ; 

This first method only works if the character is printable, but the second method works for all ASCII 
characters (printable or not) . The second method uses the chr function (which is detailed in Chapter 4) . 
As an example, suppose you want constant bell to contain the bell ringing character. The bell ringing 
character has an ASCII value of 7, so to assign this value to constant bell you can make the following 
declaration: 

CONST 

bell = CHR(7) ; 



3.5.4 internal Representation of Char Variables 

DOMAIN Pascal stores the ASCII value of a char variable in one 8-bit byte. 



3.6 Enumerated Data 



An enumerated data type consists of an ordered group of identifiers. The only value you can assign to an 
enumerated variable is one of the identifiers. Here are declarations for four enumerated variables: 

VAR 

citrus : (lemon, lime, orange, carambola, grapefruit) ; 

primary_colors : (red, yellow, blue); 
Beatles : (John, Paul, George, Ringo) ; 

German_speaking_countries : (GDR, FRO, Switzerland, Austria) ; 

In the code portion of your program, you can only assign the values red, yellow, or blue to variable 
primary_colors. 

Notice that the elements of an enumerated type must be identifiers. Identifiers cannot begin with a digit, 
so, for example, the following declaration produces an "Improper enumerated constant syntax" error: 

VAR 

f irst_six_primes : (2, 3, 5, 7, 11, 13); {error} 



3.6.1 Internal Representation of Enumerated Variables 

DOMAIN Pascal represents an enumerated variable in one 16-bit word. In this word, DOMAIN Pascal 
stores an integer corresponding to the ordinal position of the current value of the enumerated variable. 
For example, consider the following declaration: 

VAR 

pets : (cats, dogs, dolphins, gorillas, pythons); 
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Pets has five elements; DOMAIN Pascal represents those five elements as integers from to 4 as shown 
in Table 3-1. 



Table 3-1. Representation of an Enumerated Variable 

0000000000000000 
0000000000000001 
0000000000000010 
0000000000000011 
0000000000000100 



pets 


= cats 


pets 


= dogs 


pets 


= dolphins 


pets 


= gorillas 


pets 


= pythons 



3.7 Subrange Data 



A variable with the subrange type has a valid range of values that is a subset of the range of another type 
called the base type. When you define a subrange, you specify the lowest and highest possible value of the 
base type. You can specify a subrange of integers, characters, or any previously-defined enumerated type. 
The following fragment declares four different subrange variables: 

TYPE 

mountains = (Wachusett, Greylock, Washington, Blanc, Everest); 
{Mountains is an enumerated type.} 

VAR {The following four variables all have subrange types.} 



teenage_years 
posit ive_integers 
capital_letters 
small mountains 



13.. 19; {Subrange of INTEGER.} 

1..MAXINT; {Subrange of INTEGER.} 

'A'.. 'Z'; {Subrange of CHAR.} 

Wachusett. .Washington; {Subrange of MOUNTAINS.} 



Currently, DOMAIN Pascal does not support subrange checking. For example, if you try to assign the 
value 25 to teenage_years, DOMAIN Pascal does not report an error. However, you can use the 
in_range function to determine whether 25 is within the declared subrange. (See Chapter 4 for informa- 
tion on the in_range function.) 

3.7.1 Internal Representation of Subranges 

The storage allocation for subrange variables is the same as that for their base types. However, a subrange 
field in a packed record will have a different allocation (see the "Internal Representation of Packed Re- 
cords" section later in this chapter for details). 

3.8 Sets 

A set in DOMAIN Pascal is virtually identical to a set in standard mathematics. For instance, DOMAIN 
Pascal can compute unions and intersections of DOMAIN Pascal set variables just like you can find un- 
ions and intersections of two mathematical sets. Refer to the "Set Operations" listing in Chapter 4 for in- 
formation on using sets in the action part of your program. 

3.8.1 Declaring Set Variables 

The format for specifying a set variable is as follows: /'"""n 

set of boolean | char | enumerated_type | subrange_type 
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For example, consider the following set declarations: 

TYPE 

very = (ochen, sehr, tres, muy) ; 
lowints = 0. .100; 

VAR 

ASCII_values : set of char; {Char is base type.} 

possibilities : set of boolean; {Boolean is base type.} 

capital_letters : set of 'A'..'Z'; {Subrange of CHAR is base type.} 

lots : set of very; {Enumerated type is base type.} 

digits : set of lowints; {lowints is base type.} 

If the base type is a subrange of integers, then the low end of the subrange cannot be a negative number. 
Also, the high end of the subrange cannot exceed 255. 

If the base type is an enumerated type, the enumerated type cannot contain more than 2048 elements. 

NOTE: DOMAIN Pascal lets you declare packed set variables or packed set types. 
However, the packed designation does not affect the amount of memory the 
compiler uses to represent the set; that is, the compiler ignores the designation. 
Furthermore, specifying a packed set triggers the following warning message: 

Warning: SET cannot be PACKED. 



3.8.2 Initializing Set Variables — Extension 

In most cases, you can initialize set variables with an assignment statement in the variable declaration. For 
example, consider the following set variable initializations: 

TYPE 

unstable_elements = (U, Pi, Ei, Ra, Xe) ; 

VAR 

letters : set of CHAR := ['A', 'E' , 'I', '0', 'U']; 
humanmade_elements : set of unstable_elements := [Pi, Ei] ; 

If the variable declaration occurs within a procedure or function, you cannot initialize the variable at the 
declaration unless it has been declared static. This is because storage within routines is dynamic and so 
variables in them do not necessarily retain their values between executions. For example, the following is 
incorrect: 

FUNCTION assign_grades(IN OUT score : INTEGER) : BOOLEAN; 
VAR 

grades : set of CHAR := ['A', 'B' , 'C , 'D' , 'E']; {Wrong!} 

This is the correct way to initialize the variable at its declaration in a routine: 
grades : STATIC set of CHAR := ['A', 'B', 'C , 'D' . 'E']; 

See Chapter 7 for information on the static attribute. 

Refer to the "Set Operations" listing in Chapter 4 for more information on set assignment. 

3.8.3 Internal Representation of Sets 

A set can contain up to 256 elements; their ordinal values are to 255. Sets are stored as bit masks, with 
one bit representing one element of the set. The number of bits that DOMAIN Pascal allocates to a set is 
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the number of elements in the set, rounded up to a multiple of 16 bits. That is, a set occupies the mini- 
mum number of words that provides one bit per element. Consequently, the minimum storage size for a 
set is one word (16 bits) and the maximum size is 16 words (256 bits). 

For example, suppose you define an enumerated type named Greek_letters, with values Alpha, 
Beta, Gamma, and so forth, up to Omega. You can then declare a set of Greek_letters as follows: 

VAR 

Greek_alphabet : SET of Greek_letters 

Greek_alphabet has 24 values, and therefore, Greek_alphabet requires at least 24 bits. The nearest 
word boundary is 32 bits, so DOMAIN Pascal allocates 32 bits (2 words) for the variable. It then stores 
the values this way: 



15 



15 





Omega 


• 


. 


Gam- 
ma 


Beta 


Alpha 



Word 1 



Word 2 



Figure 3-6. Storage of Sample Set 



If the base type of the set is a subrange of integers or a subrange of char, then the ordinal value of the high 
end of the subrange determines the amount of space required to store the set. For example, consider the 
following two set declarations: 

TYPE 

possible_values = 80.. 170; 
small letters = 'a'..'z': 



VAR 



pos : set of possible_values; 
sma : set of small_letters; 



DOMAIN Pascal stores variable pos in 11 words (176 bits). That is because the highest ordinal value of 
the base type (possible_values) is 170. The next word boundary up from 170 is 176. 

DOMAIN Pascal stores variable sma in eight words (128 bits). In the base type (small_letters), the 
ordinal value of z is 122. The next word boundary up from from 122 is 128. 



3-9 Records 

A record variable is composed of one or more different components (called fields) which may have differ- 
ent types. DOMAIN Pascal supports the two standard kinds of records: fixed records and variant records. 
The following subsections describe both kinds. 
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3.9.1 Fixed Records 

A fixed record consists of zero or more fields. Each field can have any valid DOMAIN Pascal data type. 
To declare a fixed record type, issue a declaration of the following format: 



type 



record_name = record 
fieldl; 



fieldN; 
end; 

Each field has the following format: 

field_name1 , ... fieldjiameN : datatype; 

For example, consider the following three record declarations: 

TYPE 

student = record (Contains two fields.} 
name : array [1.. 30] of char; 
id : INTEGER16; 
end; 

element = record (Contains four fields.} 



name 
symbol 

atomic_number 
atomic weight 



array[1..15] of char; 
array [1.. 2] of char; 
1. .120; 
real; 



end; 



o 



weather = record (Contains five fields.} 



station 


array[1..3] of char; 




sky_condition 


(fair, ptly_cloudly, 


cloudy) 


windspeed 


1. .100; 




winddirection 


1. .360; 




pressure 


single; 





end; 



VAR 



new_students 

noble_gases 

wl 



student; 
element; 
weather ; 
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Note that you can declare a record type as the data type of a field. For example, notice the changes in the 
declaration of the record weather: 

TYPE 

wind = record 

speed : 1. .100; 
direction : 1. .360; 
end; 



weather = record 
station 



sky_condition 

gradient 

pressure 



array [1.. 3] of char; 

(fair, ptly_cloudly, cloudy) ; 

wind; 

single; 



end; 



NOTE: A common mistake is to misuse the equal sign (=) and the colon (:). When de- 
claring a record in the type declaration part, put an equal sign between the re- 
cord_name and the keyword record. When declaring a record in the var decla- 
ration part, put a colon between them. When specifying a field (whether in a 
type declaration part or a var declaration part), put a colon between the 
field_name and its data type. 

3.9.2 Variant Records 

A variant record is a record with multiple data type possibilities. When you declare a variant record, you 
specify all the possible data types that the record can have. You also specify the condition for selecting 
among the multiple possibilities. 

Here is another way of viewing the distinction between fixed records and variant records. The system 

views a fixed record variable at runtime as having the same group of data types from one use of the vari- \^ y 

able to another. However, the system views a variant record variable at runtime as having a flexible group 

of data types from one use of the variable to another. 

The variant record has the following format: 

type 

record_name = record 

//xec/joarf; 

variant_part; 
end; 

The fixedjDart of a variant record is optional. It looks just like a fixed record. In other words, the 
fixed jDart consists of one or more fields each having the following format: 

field_name1 , ... fieldjiameN : datatype; 

The variant_part of a variant record takes the following format: 

case tagjleld data_type of 

constantlisti : (field; ... fieldN); 



constantlistN : (field; ... fieldN); 

The constantlist is one or more constants that share the same data_type. For instance, if data_type is in- 
teger, then every constant in constantlist must be an integer. You associate one or more fields with each 
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constantlist. With one exception, each field has the same syntax as a field in the fixed part. The one ex- 
ception is that field N can itself be a variant_part. 

Note that you can optionally associate a tag_field with the data_type. The tag_field is simply an identifier 
followed by a colon (:). You can use the tag_field to select the desired variant at runtime. For more infor- 
mation on tag_fields, see the "Record Operations" listing in Chapter 4. 

Consider the following declaration for variant record type worker . Worker contains a fixed part and a 
variant part. The fixed part contains two fields (employee and id_number). The data_type of the vari- 
ant part is worker_groups, which is an enumerated type. Wo has two possible values, exempt and 
non_exempt. When wo is exempt, the field name is yearly_salary which is an integer32 data type, 
and when wo is non_exempt, the field name is hourly_wage which has a real data type. 

TYPE 

worker_groups = (exempt, non_exempt) ; {enumerated type} 
worker = record {record type} 

employee : array [1.. 30] of char; {field in fixed part} 
id_number : integerlB; {field in fixed part} 

CASE wo : worker_groups OF {variant part} 

exempt : (yearly_salary : integer32) ; 
non_exempt : (hourly_wage : real) ; 
end; 

My_code is a variant record that does not contain a fixed part. The data type of the variant part is inte- 
ger, so the case portion declares integer constants. Choosing 1, 2, 3, and 4 as the constants is totally arbi- 
trary; you could pick any four integers. These constants serve no purpose except to establish the fact that 
there are four choices. The fields themselves provide four different ways to view the same 4-byte section 
of main memory. 



my_code 


= record 








CASE 


integer 


OF 


{variant part} 








1 


: (all : 


array [1. .4] of 


char) ; 








2 


: (first 


_half : array [1. 


.2] of 


char; 








second half : array [1 


. .2] of 


char) ; 






3 


: (xl : 
x2 : 
x3 : 


integerlB; 
boolean; 
char) ; 










4 


: (rail 


: single) ; 







end; 

NOTE: The preceding example shows four parts that take up exactly four bytes. How- 
ever, it is perfectly valid to declare parts that take up differing numbers of bytes. 

3.9.3 Unpacked Records and Packed Records 

DOMAIN Pascal supports regular (unpacked) records and "packed" records. You declare a packed re- 
cord by putting the keyword packed prior to record in the record declaration; for example: 



VAR 

student : PACKED record 
ages 
grade 
graduating 

end; 



10. .20; 

(seventh, eighth, ninth, tenth, eleventh, twelfth) ; 

boolean; 



The advantage to declaring a packed record is that it can save space. The disadvantage is that you cannot 
pass a field from a packed record as an argument to a procedure (including predeclared procedures like 
read) . The next subsection details the space savings of packing. Note that you should not directly manipu- 
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late fields in a packed record. If you want to perform some operation that changes the value of an existing 
field in a packed record, use the following steps: 

1. Assign the value of the field to a variable of the same type. 

2. Perform the operation on the variable. 

3. Assign the value of the variable to the field of the packed record. 

3.9.4 Initializing Data in a Record — Extension 

DOMAIN Pascal permits you to initialize a record in the variable declaration portion of the program un- 
less that declaration comes within a procedure or function and the record has not been declared static. 
(See Chapter 7 for information on the static attribute.) You can initialize some or all of the fields in a re- 
cord. 

To initialize a field in a record, enter a declaration with the following format 

var 

name_of_record_variable : type_of_record := 
[ init, 



init ]; 

where init is a statement having one of the following formats: 

fieid_name := initial_value 

or 

initial_value 

If you choose the second format, DOMAIN Pascal assumes that the initial_value applies to the next 
field_name in the record definition. For example, consider the following record initialization: 



TYPE 




messy 


= record 




rx : real; 




c : char; 




abc : array [1.. 3] of integer; 




case integer of 




: (132 : integer32) ; 




1 : (116 : integer); 




2 : (hb, lb : char); 




end; 


VAR 




very : 


MESSY := 




[ c := 'X', 




[-1, -2, -3], 




rx := 123.456, 




'Y', 




lb := 'a', 




hb := 'z' ] ; 
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The preceding example initializes field c to 'X'. The next declaration [-1, -2, -3] applies to field abc 
(because it follows field c). Field rx gets initialized to 123.456. Then, field c gets reinitialized to 'Y' (be- 
cause it follows field rx) . Finally, the third field in the variant portion of the record gets initialized, with 
field lb getting the value 'a' and field hb getting set to 'z'. 

3.9.5 Internal Representation of Unpacked Records 

In a record, DOMAIN Pascal allocates the same amount of space for each field that it would have re- 
quired if it were not part of the record. The compiler aligns fields of Boolean, character, and character ar- 
ray types on byte boundaries. It aligns fields of other types on word boundaries. The compiler aligns the 
record itself on a word boundary. 

For example, consider the following unpacked record type definition: 



VAR 



Idx_rec = record 
entry 
new 
next 

end; 



integerl6; 

boolean; 

"idx_rec; 



Figure 3-7 shows how DOMAIN Pascal stores variables of this type. 

In this figure, the first 16 bits of the structure contain the value of the first field, entry. The next eight 
bits holds the Boolean value of new, followed by one unused byte. The 32-bit address field, next, starts 
on the next word boundary. 

Because of alignment requirements, the order in which you declare fields of the record can have a sub- 
stantial impact upon the actual amount of memory required to store the record. In general, to minimize 
memory requirements, declare those fields that have the same size to be adjacent to each other. 



o 



15 









Entry 


New 


Unused 


Next (bytes 1 and 2) 


Next (bytes 3 and 4) 



Figure 3-7. Sample Record Layout 
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3.9.6 Internal Representation of Packed Records 

Table 3-2 shows the space required for fields in packed records. 

Table 3-2. Storage of Packed Record Fields 



Data Type of Field 


Space Allocation 


Integer, Integerl6 


16 bits; word-aligned. 


Integer32, Real, Single 


32 bits; word-aligned. 


Double 


64 bits; word-aligned. 


Boolean 


1 bit; bit-aligned. 


Char 


8 bits; byte-aligned. 


Enumerated 


Number of bits required for largest ordinal value; 
bit-aligned. 


Subrange 


Subrange of Char fields require eight bits; all 
other subrange fields take up the number of bits 
required for their extreme values. Subrange of Char 
fields are byte-aligned. All other subrange fields are 
bit-aligned. 


Set 


If fewer than 32 elements, then exactly one bit per 
element; if more than 32 elements, then same size as 
unpacked set. Bit-aligned. 


Array 


Never packed; requires the same space as an array 
outside of a packed record. (See the "Internal Represen- 
tation of Arrays" section.) 


Pointer 


32 bits. 



DOMAIN Pascal always starts the first field of a packed record on a word boundary. After the first field, 
if the exact number of bits required for the next field crosses zero or one 16-bit boundary, the field starts 
in the next free bit. If the field would cross two or more 16-bit boundaries, it starts at the next 16-bit 
boundary. Pascal allocates fields left to right within bytes and then by increasing byte address. 

The minimum size of a packed record is 16 bits. 

In packed records, characters are byte-aligned. Structured types, except for sets, are aligned on word 
boundaries. Sets are aligned only if they cross two or more 16-bit boundaries. 
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The following type declaration, along with Figure 3-7, illustrates the storage of a packed record type. 

TYPE 

Shapes = (Sphere, Cube, Ovoid, Cylinder, Tetrahedron); 
Uses = (Toy, Tool, Weapon, Food); 
Characteristics = PACKED RECORD 



Mass 


Real; 


Shape 


Shapes; 


B 


Boolean; 


Purpose 


SET OF Uses; 


Low_temp 


-100. .40; 


Class 


'A' . .'Z'; 



end; 



The fields require the following number of bits: 





Mass 


32 bits 


(word-aligned) 




Shape 


3 bits 


(bit-aligned) 


\ 


B 


1 bit 


(bit-aligned) 


I 


Purpose 


4 bits 


(bit-aligned) 




Low_temp 


8 bits 


(bit-aligned) 




Class 


8 bits 


(word-aligned) 



(The variable low_temp requires eight bits because it can take a range of 140 values (-100 to +40) and 
seven bits can represent only 128 values.) 

DOMAIN Pascal represents fields in the same order you declared them, as shown in Figure 3-8. 



15 13 12 11 8 7 







Mass 


Mass 


Shape 


B 


Purpose 


Low_temp 


Class 


Unused 



Figure 3-8. Sample Packed Record 

In this example, the order of field declaration has been chosen very carefully. The whole record takes up 
only eight bytes, and out of the eight bytes, only eight bits are unused. If the fields had been declared in a 
different order, the record might have taken up 10 or 12 bj^es. 



3.1 Arrays 



Like standard Pascal, DOMAIN Pascal supports array types. An array consists of a fixed number of ele- 
ments of the same data type. This data type is called the component type. The component type can be any 
predeclared or user-declared data type. 

You specify the number of elements the array contains through an index type. The index type must be a 
subrange expression. DOMAIN Pascal permits arrays of up to seven dimensions. You specify one sub- 
range expression for each dimension. 
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This fragment includes declarations for five arrays: 

TYPE 

{elements is an enumerated type.} 

elements = (H, He, Li, Be, B, C, N, 0, Fl, Ne) ; 

VAR 

{Here are the five array declarations.} 
test_data : array [1. .100] of INTEGER16; 

atomic_weights : array [H. .Be] of REAL; {Range defined in TYPE} 

{declaration. } 
last_name : array [1.. 15] of CHAR; 
a_thought : STRING ; 
lie_test : array[1..4, 1..2] of BOOLEAN; {2-dimensional array. } 

Notice that variable a_thought is of type string. String is a predefined DOMAIN Pascal array type. 
DOMAIN Pascal defines string as follows: 

TYPE 

string = array[1..80] of CHAR; 

In other words, string is a data type of 80 characters. Use string to handle lines of text conveniently. 
See the "Array Operations" listing in Chapter 4 for a description of array bound checking. 

3.10.1 Initializing Variable Arrays — Extension 

DOMAIN Pascal permits you to initialize the components in an array within the variable declaration state- 
ment unless that declaration is in a function or procedure and the array has not been declared static. (See 
Chapter 7 for more information on the static attribute.) DOMAIN Pascal initializes only those compo- 
nents for which it finds initialization data. It does not initialize the other components. For example, if an 
integer array consists of 10 components and you specify six initialization constants, then DOMAIN Pascal 
initializes the first six components and leaves the remaining four components uninitialized. 

The method you use to initialize an array depends on the type of the array. 

If the component type of the array is char, then you specify an assignment operator (:=) followed by a 
string. For example, consider the following initializations: 

CONST 

msgl = 'This is message 1' ; 



VAR 
si 
s2 
blank line 



array [1. .40] of CHAR 
array [1. .30] of CHAR 
STRING 



= 'Quoted strings are ok' ; 

= msgl; 

= chr(lO); {New line} 



If the component type is something other than char, you must initialize the components of the array indi- 
vidually. (If the component type is char, you can initialize the components individually, but it's usually 
easier to do it as a string.) You do this by specifying an assignment operator (:=) followed by the values of 
the components in the array. You must enclose these values inside a pair of brackets and separate each 
value with commas. For example, consider the following array initializations: 



VAR 



array [1.. 6] of INTEGER16 := [1, 2, 4, 8, 16, 32]; 

array [1.. 3] of SINGLE := [-5.2, -7.3, -2E-3] ; 

array[1..5] of BOOLEAN := [true, false, true, true, true]; 



The following fragment demonstrates how to provide initialization data for two 2-dimensional arrays (12 
and B2). 12 has two subrange index types (1..2 and 1..6). The first index type comprises two values, so 
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you must supply two rows of brackets. The second scalar is 1..6, so you must specify six values for each 
row. 

VAR 

12 : array [1.. 2, 1..6] of INTEGER16 := [ 

[1, 2, 3, 4, 5, 6], 
[7, 5. 9, 1, 2, 8], 

]; 

B2 : array [1.. 4, 1..3] of BOOLEAN := [ 

[true, true, true] , 
[true, false, false] , 
[false, true, false] , 
[false, false, false] , 
]; 

3.10.1.1 Defaulting the Size of An Array — Extension 

When you initialize an array in the var declaration part of a program, you can let DOMAIN Pascal deter- 
mine the size of the array for you. To accomplish this, put an asterisk (*) in place of the upper bound of 
the array declaration. For example, in the following fragment, the upper bound of init4 is 18; the upper 
bound of initS is 22; and the upper bound of init6 is 4. The compiler defines the upper bound once 
it has counted the number of initializers. 

CONST 

msgS = 'And this is message 5.'; 



VAR 

init4 
initS 
inite 



ARRAY [1..*] of CHAR := 'This is message 4.'; 

ARRAY [1..*] of CHAR := msgS ; 

ARRAY[1..*] of INTEGER16 := [1, -17, 35, 46]; 



NOTE: You can only use an asterisk in the index type if you supply an initialization value 
for the array. For example, the following fragment causes a "Size of TABLEl is 
zero" warning: 

VAR 

tablel : array[l..*] of integerlB; 

3.10.1.2 Using Repeat Counts to Initialize Arrays — Extension 

It is quite tedious to individually initialize every component in a large array. However, DOMAIN Pascal 
provides a repeat count feature that simplifies initialization. 

There are two forms of repeat counts. The first form takes the following syntax: 

n of constant 

This form tells the compiler to initialize n components of the array to the value of constant. N can be an 
integer or an expression that evaluates to an integer. The following initializations demonstrate this form of 
the repeat count: 

CONST 

x = 50; 
VAR 

a : array [1. .1024] of INTEGER16 := [512 OF 0, 512 OF -1]; 

b : array [1. ,400] of REAL := [x of 3.14, 400-x OF 2.7]; 
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In the preceding example, DOMAIN Pascal initializes the first 512 values of array a to and the second 
512 values to -1. DOMAIN Pascal also initializes the first 50 components of array b to 3.14 and the re- 
maining 350 components to 2.7. 

The second form of the repeat count takes the following syntax: 
* of constant 



The asterisk (*) tells DOMAIN Pascal to initialize the remainder of the components in the array to the 
value of constant. The following initializations demonstrate this form of the repeat count: 

VAR 

c : array [1. .2000] of INTEGER16 := [* of 0]; 

d : array [1.. 50] of BOOLEAN := [12 of true, * of false]; 

In the preceding example, DOMAIN Pascal initializes all 2000 components in array c to 0. DOMAIN 
Pascal also initializes the first 12 components of array d to true and the remaining 38 components to 
false. 

You can use repeat counts to initialize multidimensional arrays; however, you must initialize a multidimen- 
sional array column by column rather than all at once. For example, compare the right and wrong ways to 
initialize a 2-dimensional array: 



VAR 



array [ 1 . . 2 , 1 . . 5 ] of INTEGER16 
array [1.. 2, 1..5] of INTEGER16 
array [1..2, 1..5] of INTEGER16 



array[1..2, 1..5] of INTEGER16 := 



[10 of 0] ; 


{wrong} 


[* of 0] ; 


{wrong} 


[ 




[5 of 0] , 




[5 of 0], 




]; 

r 


{right} 


L 

[*.of 0], 




[* of 0], 




]; 


{right} 



V. 



3.10.2 Internal Representation of Arrays 

With two exceptions, the total amount of memory required to store an array equals the number of ele- 
ments in the array times the amount of space required to store one element. The amount of space for one 
element depends on the component type of the array, as shown in Table 3-3. 

The two exceptions to this rule are arrays of booleans and chars. If the component type of the array is 
either boolean or char, the storage space for an array declaring an odd number of elements is represented 
in an even number of bytes. For example, if you declare boolean array b as 



VAR 



array[1..5] of boolean; 



DOMAIN Pascal reserves six bytes of memory for b. 
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Table 3-3. Size of One Element of an Array 



o 



Base Data Type 


Size of One Element 




Integer 16 or Integer 


16 bits 




Integers 2 


32 bits 




Single or Real 


32 bits 


■V 


Double 


64 bits 




Boolean 


8 bits 




Char 


8 bits 




Subrange 


size of base type of subrange 




Enumerated 


16 bits 



Given a 2-dimensional array of the following declaration: 
a : array[1..2, 1..3] of integerl6; 

DOMAIN Pascal represents it in the following order: 

a[l,l] first 

a [1,2] second 

a[l,3] third 

a [2,1] fourth 

a[2,2] fifth 

a[2,3] sixth 



3.11 Files 

When you open a file for I/O access, you must specify a file variable that will be the pseudonym for the 
actual pathname of the file. Thereafter, you specify the file variable (not the pathname) to refer to the 
file. DOMAIN Pascal supports the file data type and the text data type. (Throughout this manual, the 
word "file," in boldface type, means the file data type, and the word "file," in roman type, means a disk 
file.) 

A variable with the text type specifies a DOMAIN file with the UASC (unstructured ASCII) attribute. For 
example, the following declaration establishes variable f 1 as a synonym for a UASC file: 



VAR 



f 1 : text ; 

UASC files contain sequences of ASCII characters representing variable-length lines of text. You can 
read or write entire lines of a UASC file. You can read from or write to a UASC file the values of a vari- 
able of any type. Chapter 8 describes UASC files in more detail. 

You specify a file variable with the following format: 

variable : file of base_type; 

A variable with the file type specifies a file composed of values having the base_type. That is, the only 
permissible values in such a file all have the same data type, that of the base_type. The base_type can be 
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any type except a pointer, file, or text type. The file variable type creates a DOMAIN record-structured 
file whose record size is the size of the data type. Chapter 8 describes record-structured (rec) files in 
more detail. For example, the following declaration creates a file type corresponding to a file that consists 
entirely of student records: 

TYPE 

student = record 

name : array[1..30] of char; 

id : integer32; 
end; 
U_of_M : FILE OF student; 

The DOMAIN operating system stores each occurrence of student in 38 bytes: 30 bytes for name, 4 
bytes for id, and 4 bytes (system supplied) for a record count field. 

If you redefine the text data type (for example, in a type statement), it loses its UASC attribute. For ex- 
ample, if you specify the following declaration: 

TYPE 

text = FILE OF char; 

then text is no longer a UASC type. It is a record file with a record size of one byte. 

For more information on DOMAIN file types, see Programming With General System Calls, 

3.1 2 Pointers 

A pointer variable points to a dynamic variable. In DOMAIN Pascal, the value of a pointer variable is a 
variable's virtual address. DOMAIN Pascal supports the pointer type declaration of standard Pascal as 
well as a special univ_ptr data type and procedure and function pointer types. This section details the 
declaration of pointer types. You should also refer to the "Pointer Operations" listing of Chapter 4 for in- 
formation on using pointers in your programs. 

3.12.1 Standard Pointer Type 

To declare a pointer type, use the following format: 

type 

name_of_type = "typename 

You can specify any data type for typename. The pointer type can point only to variables of the given 
type. For example, consider the following pointer type and variable declarations: 

TYPE 

ptr_to_intl6 = "integerl6; {Points only to integerl6 variables.} 
ptr_to_real = "real; {Points only to real variables.} 
studentptr = "student; {Points only to student record variables.} 
student = record 

name : array[1..25] of char; 

id : integer; 

next_student : studentptr; 
end; 

VAR 

x : integerl6; 
p_x : ptr_to_intl6; 
half_life : real; 
p_half_life : ptr_to_real; 
Brown_Univ : student; 
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3.12.2 Univ_ptr — Extension 

The predeclared data type univ_ptr is a universal pointer type. A variable of type univ_ptr can hold a 
pointer to a variable of any type. You can use a univ_ptr variable in the following contexts only: 

o Comparison with a pointer of any type 

• Assignment to or from a pointer of any type 

• Formal or actual parameter for any pointer type 

• Assignment to the result of a function 

Note that you cannot de-reference a univ_ptr variable. De-referencing means finding the contents at the 
logical address that the pointer points to. You must use a variable of an explicit pointer type for the de- 
reference. Please see the "Pointer Operations" listing in Chapter 4 for more information on univ_ptr. 

3.12.3 Procedure and Function Pointer Data Types — Extension 

DOMAIN Pascal supports a special pointer data type that points to a procedure or a function. By using 
procedure and function data types, you can pass the addresses of routines obtained with the addr 
predeclared function. (See the addr listing of Chapter 4 for a description of this function.) You may only 
obtain the addresses of top-level procedures and functions; you cannot obtain the addresses of nested or 
explicitly declared internal procedures and functions. (See Chapter 5 for details about internal proce- 
dures.) 

Procedure and function pointer type declarations are the same as regular procedure and function declara- 
tions, except for the following: 

• The procedure or function has no identifier; in other words, the procedure or function does not 
have a name. 

• The type declaration begins with an up-arrow (just like standard pointer types) . 

For example, consider the following variable declarations: 

VAR 

i.j : INTEGER; 

func_ptr : "FUNCTION (a : char) : INTEGER32; 

proc_ptr : "PROCEDURECx.y , z : real; 

quarts : integerl6) ; 



3.12.4 Initializing Pointer Variables — Extension 

DOMAIN Pascal permits you to initialize the values of pointer variables within its variable declaration in 
most cases. You initialize a value by placing a colon and equal sign (:=) immediately after the data type. 
For example, the following fragment declares my_ptr as a type ptr_to_intl6 with an initial value of 
NIL: 

TYPE 

ptr_to_intl6 = "integerl6; 
VAR 

my_ptr : ptr_to_intl6 := NIL; 
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If the variable declaration occurs within a procedure or function, you cannot initialize the variable at the 
declaration unless it has been declared static. This is because storage within routines is dynamic and so 
variables in them do not necessarily retain their values between executions. For example, the following is 
incorrect: 

TYPE 

ptr_to_intl6 = "integerlG; 

FUNCTION do_nothing(IN OUT x : INTEGER) : BOOLEAN; 
VAR 

my_ptr : ptr_to_intl6 := NIL; {Wrong!} 

This is the correct way to initialize the variable at its declaration in a routine: 
my_ptr : STATIC ptr_to_intl6 := NIL; 

See Chapter 7 for information on the static attribute. 

3.12.5 Internal Representation of Pointers 

DOMAIN Pascal stores pointer variables in the 32-bit structure shown in Figure 3-9. 
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Figure 3-9. Pointer Variabie Format 

A pointer to a procedure or function (a DOMAIN Pascal extension) points to the starting address of that 
routine. 

3o13 Putting Variables Into Sections — Extension 

A "section" is a named area of code or data. At runtime, the code or data in a particular section occupies 
contiguous logical addresses. By default, all variables that you declare in a var declaration part are stored 
in the DATA$ section. However, DOMAIN Pascal lets you assign variables to sections other than 
DATA$. Named data sections are synonymous with named common blocks in FORTRAN. 

To specify a data section, place the section name (any valid identifier) after the reserved word var. You 
must enclose the section name inside parentheses. That is, use the following format to declare a section 
name for a var declaration part. 

var (section_name) 

identifierjisti : data_type1; 



identifier JistN : dataJtypeN; 

All the variables named in all the identifierjists will be stored in section_name. Since you can put multi- 
ple var declaration parts in the same program, you can create multiple named sections. If you do not 
specify a section_name, DOMAIN Pascal puts the variables in the DATA$ section. 
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DOMAIN Pascal allocates variables defined in a var declaration part sequentially within the specified sec- 
tion. If more than one var declaration specifies the same section name, the subsequent declarations are 
considered to be continuations of the first declaration. 

By forcing certain variables into the same section, you can reduce the number of page faults and thus 
make your program execute faster. For example, suppose you declare the following three variables: 



VAR 



X 

b_data 
y 



integerl6; 

array [1. .5000] of integerl6; 

single; 



Further suppose that whenever you need the value of x, you also need the value of y. By default, 
DOMAIN Pascal places x, b_data, and y inside the DATA$ section. The DATA$ section encompasses 
10 pages (1 page = 1024 bytes). There is no way to ensure that x and y will be on the same page in 
DATA$ because DOMAIN Pascal might place b_data in between x and y. However, by putting x and 
y in the same named section, you can improve the odds to over 99%. For example, to put x and y into 
section important, you must issue the following declarations: 

VAR (important) 

X : INTEGER16; {will go into section "important"} 
y : REAL; {will go into section "important"} 

VAR 

b_data : array [1. . 5000] of INTEGER16; {will go into section "DATA$"} 

Sections are very important at bind time. For complete information on the DOMAIN binder, see the 
DOMAIN Binder and Librarian Reference. 

3-14 Attributes for Variables and Types — Extension 

DOMAIN Pascal supports attributes for variables and types. These attributes supply additional information 
to the compiler when you declare a variable or a type. 

DOMAIN Pascal currently supports three of these attributes: volatile, device, and address. The volatile 
and device attributes enable you to turn off certain optimizations that would otherwise ruin programs that 
access device registers or shared memory locations. The address attribute associates a variable with a spe- 
cific virtual address. 

You specify these attributes immediately prior to the type; that is, immediately after the colon or equal 
sign. You must place them inside a pair of brackets; for example: 

TYPE 

int_array = [VOLATILE] array [1.. 10] of integer; 
VAR 

X : [DEVICE] integerl6; 

To specify more than one attribute for a particular data type or variable, separate the attributes with com- 
mas. 

The following subsection detail the attributes. 

3.14.1 Volatile — Extension 

Volatile informs the compiler that memory contents may change in a way that the compiler cannot pre- 
dict. There are two situations, in particular, where this might occur: 

o The variable is in a shared memory location accessed by two or more processes. 
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• The variable is accessible through two different access paths. (That is, multiple pointers with dif- 
ferent base types refer to the same memory locations.) 

In both of these situations, it is crucial that you tell the compiler not to perform certain default optimiza- 
tions. 

For example, the following module causes optimizations leading to erroneous code: 

Module volatile_exainple; 

VAR 

p : "integer; 

Procedure Init(VAR v : integer); 
BEGIN 

p := addr(v) ; 

END ; 

Procedure Update; 
BEGIN 

p" := p" + 1; {anonymous path.} 
END; 

Procedure Top; 
VAR 

i : integer; 
BEGIN 

Init(i) ; 

i := 0; {Visible modification. } 

while i < 10 do {Visible reference. } ^- 

update; {Hidden modification to i . } 
END ; ^- 

However, you can prevent these destructive optimizations if you change the declaration of variable i to: 

VAR 

i : [volatile] integer; 



3.14.2 Device — Extension 

Device informs the compiler that a device register (control or data) is mapped to a specific virtual ad- 
dress. Device prevents the same optimizations that volatile prevents, and it also prevents two other op- 
timizations. 

By default, the compiler optimizes certain adjacent references by merging them into one large reference. 
The device attribute prevents this optimization. 

For example, consider the following fragment: 

VAR 

a,b : integerl6; - 
BEGIN 

a := 0; 

b := 0; 

By default, the compiler optimizes the two 16-bit assignments by merging them into one 32-bit assign- 
ment. (That is, at runtime, the system assigns a 32-bit zero instead of assigning two 16-bit zeros.) By 
specifying the device attribute, you suppress this optimization. 
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The device attribute also prevents the compiler from generating gratuitous read-modify-write references 
for device registers. That is, specifying a variable as device causes the compiler to avoid using instructions 
that do unnecessary reads. 

Now, consider an example. Suppose kb in the following fragment is a device register that accepts charac- 
ters from the keyboard. 

TYPE 

keyboard = char; 

VAR 

c, cl : char; 

kb : "keyboard; 

BEGIN 

c := kb^ 
cl := kb^ 

The purpose of the program is to read a character from the keyboard and store it in c, then read the next 
character and store it in cl. However, the compiler, unaware that the value of kb can be changed outside 
of the block, optimizes the code as follows. It stores the value of kb in a register, and thus assigns both c 
and cl identical values. Obviously, this is not what the programmer intended since DOMAIN Pascal as- 
signs the same character to both c and cl. To ensure that DOMAIN Pascal reads kb twice, declare it as: 

TYPE 

keyboard = [DEVICE] char; 

Another situation when normal optimization techniques can change the meaning of a program is in loop- 
invariant expressions. For instance, using the keyboard example again, suppose you have the program seg- 
ment: 



TYPE 




keyboard = char; 


VAR 




x 


integer; 


c 


char; 


kb 


"keyboard; 



while (X < 10) do 
begin 
c := kb"; 
foo(c) ; 
X := X + 1; 
end; 

The purpose of the block is to read 10 successive characters from the keyboard and pass each to a func- 
tion called f oo. However, to the compiler, it looks like an inefficient program since c will be assigned the 
same value 10 times. To optimize the program, the compiler may translate it as if it had been written: 

c := kb"; 
while (x<10) do 

begin 

foo(c) ; 

X := X + 1; 

end; 
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To ensure that the compiler does not optimize your program in that manner, declare kb as follows: 

TYPE 

keyboard = [DEVICE] char; 
VAR 

kb : "keyboard; 

In addition to suppressing optimizations, you can also use device to specify that a device is either exclu- 
sively read from or exclusively written to. You achieve this by using the read and write options which have 
the following meanings: 

• Device(read) — This attribute specifies read-only access for this variable or type. That is, if you 
attempt to write to this variable, the compiler flags the attempt as invalid and issues an error mes- 
sage. Although the syntax is available, the read and write options currently have no effect. They 
will be implemented in a future release of DOMAIN Pascal. 

• Device (write) — This attribute specifies write-only access for this variable or type. That is, if you 
attempt to read from this variable, the compiler flags the attempt as invalid and issues an error 
message. Although the syntax is available, the read and write options currently have no effect. 
They will be implemented in a future release of DOMAIN Pascal. 

• Device (read, write) — This attribute specifies both read and write access for this variable. This 
attribute is identical to the device attribute without any options. 

o Device(write, read) — Same as device(read, write). 

For example, here are some sample declarations using the device attributes: 

TYPE 

truth_array : [DEVICE] array[1..10] of boolean; 
VAR 

c : [DEVICE (read) ] char; {read-only access.} 

c2 : [DEVICE (write) ] char; {write-only access.} 

t : truth_array; {read and write access.} 



3.14.3 Address ~ Extension 

Address takes one required argument. 

The address specifier binds a variable to the specified virtual address, specified by a constant. You can 
only use address in a var declaration, not in a type declaration. 

Address is useful for referencing objects at fixed locations in the address space (such as device registers, 
the PEB page, or certain system data structures). Typically, the compiler generates ABSOLUTE address- 
ing modes when accessing such an operand. You cannot specify define, extern, or static when you use 
this option. 

Using address by itself (without device or volatile) does not suppress any compiler optimizations. You 
should use it in conjunction with volatile or device. The example below associates the variable peb_page 
with the hexadecimal virtual address FF7000. 

VAR 

peb_j)age : [ADDRESS (16#FF7000) , DEVICE(read) ] char; 



3.14.4 Attribute Inheritance — Extension 

Types and variables inherit the device attribute, and in some cases the volatile attribute, from more 
primitive data types. If you define a data type in terms of a more primitive data type declared with device 
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or volatile, the new data type may inherit the attributes of that more primitive data type. For example, in 
the following declarations, resource inherits the volatile attribute from semaphore: 

TYPE 

semaphore = [VOLATILE] integer; 
resource = array [1.. 10] of semaphore; 

If you define a record type as volatile or device, all the fields within the record inherit the attribute. And 
if you designate any one field within a record as having the device attribute, the entire record itself inher- 
its the device attribute. However, the same is not true for a volatile field within a record; the entire re- 
cord is not considered volatile just because one field is declared that way. Consider the following: 

TYPE 

lock = [VOLATILE] integer; 
queue = RECORD 

key : lock; 

users : integer; 



end; 
VAR 

wait : queue; 

In this example, all references to wait . key are volatile, because the lock type is declared as volatile, but 
references to wait . users are not volatile. If you want all the fields to be volatile, insert the following af- 
ter the record definition: 

volque = [VOLATILE] queue; 

NOTE: Pointer types do not inherit the device or volatile attributes of their base type. 
However, when pointer variables are de-referenced, the system applies any at- 
tributes of their base type. 

3.14.5 Special Considerations — Extension 

It is usually incorrect to associate an attribute with a pointer type. For example, declaring a pointer to a 
device register by means of the following declaration is almost certainly incorrect: 

VAR 

iodata : [DEVICE] "integerlB; 

The memory location of iodata is normally on the stack or in the DATA$ section. You don't want to 
make the local variable a device, you want to make the local variable a pointer to a device. Specify the 
following declarations instead: 

TYPE 

Devint = [DEVICE] integer; 
VAR 

iodata : "Devint; 
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This chapter describes the statements, procedures, functions, and operators constituting the action part of 
a DOMAIN Pascal program or routine. The beginning of the chapter provides an overview of what's avail- 
able. The remainder of the chapter is a DOMAIN Pascal encyclopedia complete with many, many exam- 
ples. If you are a Pascal beginner, you should read a good Pascal tutorial textbook before trying to use this 
chapter. 

The overview of DOMAIN Pascal is divided into the following categories: 

• Conditional branching 

• Looping 

• Mathematical operators 

• Input and output 

• Miscellaneous functions and procedures 

• Systems programming functions and procedures 

4.1 Overview: Conditional Branching 

DOMAIN Pascal supports the two standard Pascal conditional branching statements — if and case. 



4-2 Overview: Looping 



DOMAIN Pascal supports for, repeat, and while — the three looping statements of standard Pascal. All 
three looping statements support the next and exit extensions. Next causes a jump to the next iteration of 
the loop, and exit transfers control to the first statement following the end of the loop. 
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4.3 Overview: Mathematical Operators 

DOMAIN Pascal supports all the standard arithmetic, logical, and set operators, as well as three additional 
operators for bit manipulation. Table 4-1 lists these operators. 



Table 4-1. DOMAIN Pascal Operators 



Type 


Operator 


Meaning 


Integer 


+ 


Addition 




- 


Subtraction 




* 


Multiplication 




/ 


Division (Real values) 




div 


Division (Integer values) 




mod 


Modulus arithmetic (returns remainder 
of an integer division) 


Bit 


& 
! 


Bitwise and 
Bitwise or 




- 


Bitwise negation 


Set 


+ 


Set union 




* 


Set intersection 




- 


Set exclusion 




= 


Set equality 




o 


Set inequality 




<= 


First operand is subset of second 




>= 


First operand is superset of second 




in 


First operand is element of second 


Boolean 


and 


Logical and 




or 


Logical or 




not 


Logical negation 


All Types 


= 


Equal to 




o 


Not equal to 




> 


Greater than 




>= 


Greater than or equal to 




< 


Less than 




<= 


Less than or equal to 
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When evaluating expressions, DOMAIN Pascal uses the order of precedence rules found in Table 4-2. 
The expressions grouped together have the same precedence. Note that some operators work as both 
mathematical operators and as set operators. Nevertheless, the precedence rules are the same no matter 
how the operator is used. 



Table 4-2. Order of Precedence in Evaluating Expressions 



Operator 



not 

& * / div 
mod and 

! + - or 

= o > 
>= < 

<= in 



Order of Precedence 



highest precedence 

A 



V 

lowest precedence 



DOMAIN Pascal permits the mixing of real and integer types in arithmetic expressions. For such mixed 
operations, DOMAIN Pascal promotes the integers to reals before performing the operation. 



4.3.1 Expansion of Operands 

The compiler computes operands smaller than 32 bits with 32 bits of precision when necessary to achieve 
correct arithmetic. This means integerl6 operands sometimes are expanded to integer32 before calcula- 
tions. These data expansions produce more accurate results; however, the compiler tries to avoid the extra 
code produced by data expansion where possible. 



o 
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4.3.2 Predeclared Mathematical Functions 

In addition to the mathematical operators, you can also use any of the predeclared mathematical func- 
tions listed in Table 4-3. Note that although the arctan, cos, exp. In, sin, and sqrt functions permit inte- 
ger arguments, the compiler converts an integer argument to a real number before calculating the func- 
tion. Therefore, when possible, it is better to supply real, rather than integer, arguments to these func- 
tions. 



Table 4-3. Mathematical Functions 



Function 


Argument (s) 


Result 


Meaning 


abs(x) 


int or real 


same type as x 


Absolute value of x. 


arctan (x) 


int or real 


real 


Arctangent of x. 


arshft(x,n) 


both are ints 


int 


Shifts the bits in x to the right n 
places. Preserves the sign of x. 


cos(x) 


int or real 


real 


Cosine of x. 


exp (x) 


int or real 


real 


Exponential function e raised to the 
X power. 


ln(x) 


int or real 


real 


Natural log of x; x > 


lshft(x,n) 


both are ints 


int 


Shifts the bits in x to the left 
n places. 


odd(x) 


int 


boolean 


True if x is an odd value. 


round (x) 


real 


int 


Round X up or down to nearest 
integer. 


rshft(x,n) 


both are ints 


int 


Shifts the bits in x to the right 
n places. 


sin (x) 


int or real 


real 


Sine of x. 


sqr(x) 


int or real 


same type as x 


Square of x. 


sqrt(x) 


int or real 


real 


Square root of x. 


trunc(x) 


real 


int 


Truncates x to nearest integer. 


xor(x,n) 


both are ints 


int 


Bit exclusive or. 
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4.4 Overview: I/O 

DOMAIN Pascal supports the I/O procedures described in Table 4-4. For details on these routines, con- 
sult the encyclopedia later in this chapter and see Chapter 8. 



Table 4-4. Predeclared I/O Procedures 



o 



o 



Name 


Action 


close 


Closes a file. 


eof 


Tests whether the stream marker is pointing to the end 
of the file. 


eoln 


Tests whether the stream marker is pointing to the end 
of a line. 


find 


Sets the stream marker to the specified record. 


get 


Reads from a file. 


open 


Opens a file for future access. 


page 


Inserts a formfeed (page advance) into a file. 


put 


Writes to a file. 


read 


Reads information from the specified file (or from the 
keyboard) into the specified variables. After reading the 
information, read positions the stream marker so that it 
points to the character or component immediately after 
the last character or component it read. 


readln 


Similar to read except that after reading the information, 
readln positions the stream marker so that it points to the 
character or component immediately after the next 
end-of-line character. 


replace 


Substitutes a new record component for an existing record. 


reset 


Specifies that an open file be open for reading only. 


rewrite 


Specifies that an open file be open for writing only, or 
tells the system to open a temporary file. 


write 


Writes the specified information to the specified file 
(or to the screen) . 


writeln 


Same as write except that writeln always appends a 
linefeed to its output. 



4.5 Overview: Miscellaneous Routines and Statements 

Several DOMAIN Pascal elements do not fit neatly into categories. We've listed these elements in Table 

4-5. 
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Table 4-5. Miscellaneous Elements 



Element 


Action 


addr 


Returns the address of the specified variable. 


char 


Finds the character whose ASCII value equals the 
specified number. 


discard 


Explicitly discards a computed value. 


dispose 


Deallocates the storage space that a dynamic record 
was using. 


exit 


Transfers control to the first statement following a 
for, while, or repeat loop. 


firstof 


Returns the first possible value of a type or a variable. 


goto 


Uncondionally jumps to the first command following 
the specified label. 


in_range 


Tells you whether the specified value is within the 
defined range of an enumerated variable. 


lastof 


Returns the last possible value of a type or a variable. 


max 


Returns the larger of two expressions. 


min 


Returns the smaller of two expressions. 


new 


Allocates space for storing a dynamic record. 


next 


Transfers control to the test for the next iteration of a 
for, while, or repeat loop. 


nil 


A special pointer value that points to nothing. 


ord 


Finds the ordinal value of a specified integer. Boolean, 
enumerated, or char data type. 


pack 


Copies unpacked array elements to a packed array. 


pred 


Finds the predecessor of a specified value. 


return 


Causes program control to jump back to the calling 
procedure or function. 


sizeof 


Returns the size (in bytes) of the specified data type. 


succ 


Finds the successor of a specified value. 


type transfer functions 


Permits you to change the data type of a variable or 
expression in the code portion of your program. 


unpack 


Copies packed array elements to an unpacked array. 


with 


Lets you abbreviate the name of a record. With is 
standard, but DOMAIN Pascal includes an extension 
that supports a name tag. 
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4.6 Overview: Systems Programming Routines 

Several DOMAIN Pascal routines are available for systems programmers* use. Table 4-6 lists these rou- 
tines. Because only a few programmers will need to use these routines, they are not described in the ency- 
clopedia section that follows. Instead, they appear in Appendix E. 



Table 4-6. Systems Programming Routines 



Routine 


Action 


disable 
enable 
set_sr 


Turns off the interrupt enable in the hardware status register. 

Turns on the interrupt enable in the hardware status register. 

Saves the current value of the hardware status register and then 
inserts a new one. 
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4.7 Encyclopedia of DOMAIN Pascal Code 

The remainder of this chapter contains an alphabetical listing of each of the keywords that you can use in 
the action part of a DOMAIN Pascal program or routine. It also contains listings for several other Pascal 
concepts. Table 4-7 provides the keyword listings, and Table 4-8 contains the conceptual listings. 



Table 4-7. Keyword Listings in Encyclopedia 



abs 


get 


pred 


addr 


goto 


put 


and 


if then else 


read 


arctan 


in 


repeat 


arshft 


in_range 


replace 


begin 


lastof 


reset 


case 


In 


return 


chr 


Ishft 


rewrite 


close 


max 


round 


cos 


min 


rshft 


discard 


mod 


sin 


dispose 


new 


sizeof 


div 


next 


sqr 


end 


nil 


sqrt 


eof 


not 


succ 


eoln 


odd 


trunc 


exit 


open 


unpack 


exp 


or 


while 


find 


ord 


with 


firstof 


pack 


write 


for 


page 


xor 



Table 4-8. Conceptual Listings in Encyclopedia 



array operations 


record operations 


bit operations 


set operations 


compiler directives 


statements 


expressions 


type transfer functions 


pointer operations 
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Abs — Returns the absolute value of an argument. 



FORMAT 

abs(number) {abs is a function.} 

Arguments 

number Any real or integer expression. 

Function Returns 

The abs function returns a real value if number is real and an integer value if number is an integer. 

DESCRIPTION 

The abs function returns the absolute value of the argument. The absolute value is the number's dis- 
tance from 0. Note that number cannot be -2147483648 (which is the lowest negative integer). 



EXAMPLE 

program abs_example; 
VAR 

X : INTEGER; 

y : REAL ; 

BEGIN 

X := -3; X := ABS(x) ; 

y := -456.78; y := AES(y) ; 

WRITELN(x,y) ; 
END. 



Using This Example 

If you execute the sample program named abs_example, you get the following output: 
3 4.567800E+02 
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Addr — Returns the address of the specified variable. (Extension) 



FORMAT 

addr(x) {addr is a function.} 

Argument 

X Can be a variable declared as any data type except as a procedure or function 

data type having the internal attribute. X can also be a string constant but it can- 
not be a constant of any type other than string. 

Function Returns 

The addr function returns an univ_ptr value. (Chapter 3 describes the univ_ptr data type.) 

DESCRIPTION 

Use addr to return the address at which variable x is stored. Addr is of particular use with variables de- 
fined as pointers to functions or procedures. 

Using addr can prevent some compiler optimizations. If you apply addr to a variable that is local to a 
routine, and the variable is not a set, record, or array, you do not get optimizations and register allo- 
cation for that variable or any expressions using the variable. This means the routine's code might be 
larger and slower than it otherwise would be. 

Applying addr to a variable is equivalent to declaring the variable volatile. See Chapter 3 for more in- 
formation on volatile. 

Refer to the "Pointer Operations" listing later in this chapter for an example of addr. 

EXAMPLE 

Program addr_example; 

TYPE 

ptr_to_real = "real; 

VAR 

y, y2 : real; 
ptr_to_y : ptr_to_real ; 

BEGIN 

write ('Enter a real number — '); readln(y) ; 
{ Set ptr_to_y to the address at which y is stored. } 

ptr_to_y := ADDR(y) ; 
{ Set y2 to the contents stored at y's address; i.e., set y2 equal to y. } 

y2 := ptr_to_y"; 

writeln(y2) ; 
END. 

Code 4-10 



Addr 



Using This Example 

Following is a sample run of the program named addr_example: 



Enter a real number — 5.3 
5 . 300000E+00 



n 
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And 



And — Calculates the logical and of two Boolean arguments. 



FORMAT 
X and y 



{and is an operator.} 



Arguments 

X, y 



Any Boolean expressions. 



Operator Returns 

The result of an and operation is a Boolean value. 



DESCRIPTION 

Sometimes and is called Boolean multiplication. Use it to find the logical and of expressions x and y. 
Here is the truth table for and: 



X 


y 


Result 


true 


true 


true 


true 


false 


false 


false 


true 


false 


false 


false 


false 



r 



(See also the listings for the logical operators or and not later in this encyclopedia) . 

NOTE: Some programmers confuse and with "&". "&" is a bit operator; it causes 
DOMAIN Pascal to perform a logical and on all the bits in its two arguments. 
For example, compare the following results: 

the result of (true and false) is false 
the result of (75 & 15) is 11 

(Refer to "Bit Operators" later in this encyclopedia.) 

NOTE: Don't confuse and with the and then option of the if statement. Refer to the if 
listing later in this encyclopedia. 



V 
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EXAMPLE 

Program and_example; 

CONST 

g = 6.6732e-ll; 

VAR 

massl, mass2, radius, force : single; 

BEGIN 

writeln('This program finds the gravitational force between two objects.'); 
write('Enter the mass of the first object (in Kg) — '); readln(massl) ; 
write('Enter the mass of the second object (in Kg) — '); readln(mass2) ; 
write('Enter the dist. between their centers (in M) — '); readln(radius) ; 

if (massl > 0.0) AND (mass2 > 0.0) 

then force := (g * massl * mass2) / sqr (radius) 
else begin 

writeln('The data you have entered seems inappropriate'); 
return; 
end; 
writeln('The force between these two objects is ', force:9:7, ' N' ) ; 
END. 



Using This Example 

This program is available on-line and is named and_example. 
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Arctan — Returns the arctangent of a specified number. 



FORIVIAT 

arctan (number) {arctan is a function.} 

Argument 

number Any real or integer expression. 

Function Returns 

The arctan function returns a real value for the angle in radians. 

DESCRIPTION 

The arctan function returns the arctangent (in radians) of number. The arctangent of a number has 
the following relationship to the tangent: 

y = arctan (x) means that x = tan(y) 

Note that Pascal does not support a predeclared tangent function. However, you can find tangent(x) 
by dividing sin(x) by cos(x). 

EXAMPLE 

PROGRAM arctan_example; 

{ This program demonstrates the ARCTAN function. } 

CONST 

degrees_per_radian = 180.0 / 3.14159; 

VAR 

q, answer_in_radians : REAL; 
answer_in_degrees : INTEGER16; 

BEGIN 

q := 2.0; 

{First, find the arctangent of 2.0 in radians. } 
answer_in_radians := ARCTAN (q) ; 
writeln('The arctan of ', q:5:3, ' is', answer_in_radians : 6 : 3 , ' radians'); 

{Now, convert the answer to degrees. } 

answer_in_degrees := round (answer_in_radians * degrees_per_radian) ; 

writeln('The arctan of ', q:5:3, ' is ', answer_in_degrees: 1, ' degrees'); 
END. 
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Using This Example 

If you execute the sample program named arctan_example, you get the following output: 

The arctan of 2.000000E+00 in radians is 1.107149E+00 
The arctan of 2.000000E+00 in degrees is 63 



"^ 
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Array Operations 



Chapter 3 explains how to declare and initialize an array. In this listing, we explain how to use arrays in 
the code portion of your program. 



ASSIGNING VALUES TO ARRAYS 

To assign a value to an array variable, you must supply the following information: 

• The name of the array variable. 

• An index expression enclosed in brackets. The value of the index expression must be within 
the declared subrange of the index type. 

• A value of the component type. 

For example, the following program fragment assigns values to three arrays: 

TYPE 

{elements is an enumerated type.} 
elements = (H, He, Li, Be, B, C, N, 0, Fl, Ne) ; 
student = record 
id : integerlS; 

class : (freshman, sophomore, junior, senior) ; 
end; 



VAR 



V. 



{Here are three array declarations. } 



test_data 
atomic_weights 
lie_test 
class 



array [1. .100] of INTEGER16; 

array [H.. Be] of REAL; 

array [1. .4, 1..2] of BOOLEAN; {2-dimensional array} 

array [1. .500] of student; 



BEGIN 

test_data[37] 
atomic_weights [He] 
lie_test[3, 2] 
student [30] . id 
student [30] .class 



= 9018; 
= 4.0; 
= true; 
= 8245; 
= senior; 
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There are a few exceptions to the rule that you must supply an index expression. 

The first exception is that you can assign a string to an array of char variable without specifying an in- 
dex expression; for example, consider the following assignments to greeting and farewell: 

CONST 

hi = 'aloha' ; 

VAR 

greeting, farewell : array[1..12] of CHAR; 

BEGIN 

greeting := hi; 
farewell := 'a bientot' ; 

The only restriction on this kind of assignment is that the number of bytes in the string must be less 
than or equal to the declared number of declared components in the array. For example, you cannot 
assign the string 'auf wiedersehen' to farewell because the string contains 15 bytes and the array is 
declared as only 12 bytes. If you do try that assignment, the compiler reports: 

Assignment statement expression is not compatible with the 
assignment variable. 

There is a second exception to the rule that you must specify an index expression when assigning a 
value to an array. The exception is that you can assign the value" of one array to another array if both 
arrays are declared identically. For example, in the following program fragment, a and b are declared 
identically, though c and d are uniquely declared: 

CONST 

quote = 'Ottawa!'; 



VAR 



array [1. .20] of CHAR 

array [1. .20] of CHAR 

array [1. .21] of CHAR 

array [1. .19] of CHAR 



o 



BEGIN 
a 
b 
c 



quote; {Assign the string 'Ottawa' to array a 



= a: 
= a: 



:= a; 



{This is a valid assignment. 

{This is not a valid assignment because a and c 

{ have different declared lengths. 

{This is not a valid assignment because a and d 

{ have different declared lengths. 



The assignment b := a causes DOMAIN Pascal to assign all components of array a to the corre- 
sponding indices in array b; that is, b := a is equivalent to the following 20 assignments: 



b[l] 
b[2] 



:= a[l]; 
:= a[2]; 



b[20] := a[20] ; 

NOTE: In standard Pascal, before assigning a string to an array, you must explicitly pad 
the string to the length of the array. DOMAIN Pascal will pad the string for you, 
so you don't have to do it. 
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USING ARRAYS 

You can specify an array component wherever you can specify a component variable of the same data 
type. In other words, if the compiler expects a real number, you can specify any real expression includ- 
ing a component of an array of real numbers. 

NOTE: You can specify an array of char variable as an argument to read, readln, 
write, or writeln. However, you cannot specify any other component type of ar- 
ray as an argument to one of these procedures. 



EXAMPLE 

PROGRAM array_example ; 

{ This simple example reads in five input values, assigns the values to } 
{ elements of an array, and then finds their mean. } 

CONST 

number_of_elements = 5; 

VAR 

a : array [1. .number_of_elements] of single; 
running_total : single := 0.0; 
n : integerl6; 

BEGIN 

for n := 1 to number_of_elements do 

begin ^ 

write('Enter a value — '); *. 

readln (a [n] ) ; 
end; 

for n := 1 to number_of_elements do 

running_total : = running_total + a [n] ; 

writeln(chr (10) , 'The mean is ', running_total/number_of_elements: 3 : 1) ; 

END. 



Using This Example 

Following is a sample run of the program named array_example: 

Enter a value — 4.3 
Enter a value — 10.3 
Enter a value — 9.5 
Enter a value — 6.2 
Enter a value — 1.5 

The mean is 6.4 
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Arshft — Shifts the bits in an integer to the right by a specified number of bits. 
Preserves the sign of the integer. (Extension) 



FORIVIAT 

arshft(num, sh) {arshft is a function.} 

Arguments 

num, sh Must be integer expressions. 

Function Returns 

The function returns an integer value. 

DESCRIPTION 

Arshft does an arithmetic right shift of an integer. That is, it preserves the sign bit of num and then 
shifts the other bits sh positions to the right. 

If num is a 16-bit integer and if the result of the function is to be stored in a 16-bit integer variable, 
then arshft expands num to a 32-bit integer, performs the shift, and then converts it back to a 16-bit 
integer. 

First examine how arshft shifts a positive integer. Consider the effect of arshft on the 16-bit positive 
integer +100 in the following table: 

unshifted 0000000001100100 = +100 

ARSHFT (+100,1) 0000000000110010 = +50 

ARSHFT (+100, 2) 0000000000011001 = +25 

ARSHFT (+100, 3) 0000000000001100 = +12 

Notice three things in the preceding table. First, the sign bit (the left-most bit) never changes. Second, 
notice that the bits move to the right. Third, notice that the bits do not wrap around from right to left; 
the absolute value always gets smaller. 

Now, examine how arshft shifts a negative integer. Consider the effect of arshft on the 16-bit negative 
integer -100 in the following table: 

unshifted 1111111110011100 = -100 

ARSHFT (-100,1) 1111111111001110 = -50 

ARSHFT (-100, 2) 1111111111100111 = -25 

ARSHFT (-100, 3) 1111111111110011 = -13 

In contrast to the preceding table, notice that arshft fills the left-most bits with ones rather than zeros 
as the right-most bits are shifted off the right end of the number. 

Results are unpredictable if sh is negative. 
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EXAMPLE 

PROGRAM arshft_exaniple; 

{ This program compares ARSHFT with RSFHT. } 

VAR 

original_number , spaces_to_shif t , r, ar : integer32 := 0; 

BEGIN 

write('Enter a positive or negative integer — '); readln(original_number) ; 

for spaces_to_shift := 1 to 5 do 
BEGIN 

writeln; 

writeln('When shifted ' , spaces_to_shift :1, ' spaces.'); 

r := RSHFT(original_number , spaces_to_shift) ; 
writelnC The rshft result is ', r:l); 

ar := ARSHFT (or iginal_number, spaces_to_shift) ; 
writelnC The arshft result is ', ar:l); 

END; 
END. 



Using This Example 

This program is available on-line and is named arshf t_example. 
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Begin — Marks the start of a compound statement. 



FORMAT 

Begin is a reserved word. 

DESCRIPTION 

Begin and end bracket a sequence of Pascal statements. A program must contain at least as many 
ends as begins. (Note that a program can contain more ends then begins.) You must use a begin/end 
pair to bracket a compound statement. (Refer to the "Statements" listing later in this encyclopedia.) 
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Begin 

EXAMPLE 

PROGRAM begin_end_example; 

{This program does very little work, but does have lots of BEGINS and ENDs.} 

TYPE 

student = record 
age : 6 . . 12 ; 
id : integerl6; 
end; {student record definition} 

VAR 

X : integer32; 

PROCEDURE do_nothing; 
BEGIN {do_nothing} 

writelnCYou have triggered a procedure that does absolutely nothing.'); 

writelnC Though it does do nothing with elan.'); 
END; {do_nothing} 



FUNCTION do_next_to_nothing(var y : integer32) : integer32; 
BEGIN {do_next_to_no thing} 

do_next_to_nothing := abs(y); 
END; {do_next_to_no thing} 



BEGIN {main procedure} 

write('Enter an integer — '); readln(x); 
if X < 

then BEGIN 

writelnCYou have entered a negative number!!!'); 
writeln('Its absolute value is ', do_next_to_nothing(x) : 1) ; 
END 
else if X = 
then BEGIN 

writelnCYou have entered zero'); 
do_no thing; 
END 
else 

writelnCYou have entered a positive number!!!'); 
END. {main procedure} 



Using This Example 

This program is available on-line and is named begin_end_example. 



Code 4-22 



Bit Operators 



Bit Operators — Calculates "and", "or", and "not" on a bit by bit basis. (Exten- 
sion) 



FORIVIAT 

op1 & op2 
op1 ! op2 
-op1 



{& (an ampersand) is bit and.} 
{! (an exclannation point) is bit or.} 
{- (a tilde) is bit not.} 



Arguments 

op1, op2 



Must be integer expressions. 



Operator Returns 

All three operators return integer results. 

DESCRIPTION 

DOMAIN Pascal supports three bit operators, all of which are extensions to standard Pascal. The op- 
erators perform operations on a bit by bit level using the following truth tables: 



& (and) 



o 



bit X 


bit X 


bit X of 


of opl 


of op2 


result 














1 





1 








1 


1 


1 





! (or) 




bit X 
of opl 


bit X 
of op2 


bit X of 
result 







1 




1 


1 





1 


1 


1 


1 



- (not) 


bit X 
of opl 


bit X of 
result 



1 


1 




Don't confuse these bit operators with the logical operators. Bit operators take integer operands; logi- 
cal operators take Boolean operands. 

In addition to the three bit operators, DOMAIN Pascal supports the following bit functions: Ishft, 
rshft, arshft, and xor. All of these functions have their own listings in the encyclopedia. 

NOTE: If one of the operators is declared as integer32, and the other operator is de- 
clared as integerl6, DOMAIN Pascal extends the integerl6 to an integer32 be- 
fore calculating the answer. 

NOTE: When performing these bitwise operations, DOMAIN Pascal treats the sign bit 
just as it treats any other bit. 
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EXAMPLE 

PROGRAM bit_operators_example; 

{ This program demonstrates bitwise AND, OR, and NOT. } 

CONST 

{ The 2# prefix specifies a base 2 number. } 

X = 2#0000000000001010; {10} 

y = 2#0000000000010111; {23} 

VAR 

resultl, result2, results : integerl6; 



BEGIN 

resultl 
result2 
results 

END. 



= X & y; writeln(x:l, ' AND ', y:l, ' = ', resultl :1); 
= X ! y; writeln(x:l, ' OR ' , y:l, ' = ', result2:l); 
= ~x; writelnCNOT ', x:l, ' = ', resultS:l); 



v.. 



Using This Example 

If you execute the sample program named bit_operators_example, you get the following output: 



10 AND 2S = 2 
10 OR 2S = 31 
NOT 10 = -11 
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Case — A conditional branching statement that selects among several state- 
ments based on the value of an ordinal expression. 



FORMAT 

There are two different forms of the case statement. Here, we describe the use of case in the body of 
your program. The other use of case is in the variable or type declaration portion of the program. (See 
the "Variant Records" section in Chapter 3 for details on this use.) 



Case takes the following syntax: 

case expr of 

constantlisti : stmnti ; 



{case is a statement.} 



o 



constantlistN : stmntN; 
otherwise stmnt list; 



end; 



o 



Arguments 

expr 



constantlist 
stmnt 

stmnt list 



Any ordinal expression (variable, constant, etc.) The ordinal types are integer. 
Boolean, char, enumerated, and subrange. You cannot specify an array as an 
expr, though you can specify an element of an array (assuming the element has 
an ordinal type). Also, you cannot specify a record, though you can specify a 
field of the record (assuming the field has an ordinal type) . 

One or more values (separated by commas) having the same data type as expr. 

A simple statement or a compound statement (refer to the "Statements" listing 
later in this encyclopedia). 

One or more statements associated with the optional otherwise clause. (The oth- 
erwise clause tells the system to execute stmntjist if expr matches none of the 
constants in any of the constantiists.) Unlike a compound statement, you do not 
have to bracket the stmntjist with a begin/end pair (though doing so does not 
cause an error). 



DESCRIPTION 

The case statement performs conditional branching. It is very useful in situations involving a multi-way 
branch. When the value of expr equals one of the constants in a constantlist, the system executes the 
associated stmnt. 

Note that case and if/then/else serve nearly identical purposes. The differences between case and if/ 
then/else are: 

• Case can only compare ordinal values. If /then/else can compare values of any data type. 

• The system can sometimes execute a case statement faster than an equivalent if/then/else 
statement. That's because the DOMAIN Pascal compiler sometimes translates a case state- 
ment into a dispatch table and always translates an if/then/else statement into a series of con- 
ditional tests. 
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Also, note that a case statement is often more readable than an if/then/else statement. For instance, 
compare the following if/then/else statement to its equivalent case statement: 



IF grade = 'A' THEN 

write ('Excellent' ) 
ELSE IF grade = 'B' THEN 

write ('Good') 
ELSE IF grade = 'C THEN 

write ( 'Average' ) 
ELSE IF grade = 'D' THEN 

write ('Poor' ) 
ELSE IF grade = 'F' THEN 

write ('Failing') ; 



CASE grade OF 

'A' : write('Excellent') ; 

'B' : write('Good') ; 

'C : write ( 'Average' ) ; 

'D' : write('Poor') ; 

'F' : write('Failing') ; 
end; 



Otherwise — Extension 

DOMAIN Pascal supports an extension to the standard Pascal case statement. This extension is the 
otherwise clause. The otherwise clause tells the system to execute stmntjist if expr matches none of 
the constants in any of the constantlists. For example, you can write the preceding case example like 
this: 

CASE grade OF 

'A' : write ( 'Excellent' ) ; 

'B' : write('Good') ; 

'C : write ( 'Average' ) ; 

'D' : write('Poor') ; 

OTHERWISE write('Failing') ; 
end; 



Notice that you do not put a colon (:) after the keyword otherwise. 

As mentioned earlier, the begin/end pair is optional in an otherwise clause. Therefore, the following 
two case statements are equivalent: 



CASE number OF 

1, 2, 3 : writeln('Good') ; 

OTHERWISE writelnCGreat . ' ) ; 
writelnC Encore. ' ) 
end; 



CASE number OF 

1, 2, 3 : writeln('Good') ; 
OTHERWISE begin 

writelnCGreat' ) ; 
writeln ( 'Encore' ) ; 
end; 
end; 
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EXAMPLE 

PROGRAM case_example; 
VAR 



a letter 


: char ; 




sale 


: boolean; 




price 


: array [1. 


.5] of char; 



BEGIN 

write ('Is whole wheat bread on sale today? — '); 
readln(a_letter) ; 

CASE a_letter OF 

'y' , 'Y' : sale := true; 
'n', 'N' : begin 

sale := false; 

writeln( 'Remember to tell them it"s organic.'); 
end; 
OTHERWISE begin 

writeln('You have made a mistake'); 
writelnC Please rerun the program'); 
return; 
end; 
end; {CASE} 

if sale then 

price := '$1.99' 
else 

price := '$2.99' ; 
writeln('Mark it as ', price:5); 

END. 



Using This Exampie 

This program is available on-line and is named case_example. 
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Chr — Returns the character whose ASCII value corresponds to a specified ordi- 
nal number. 



FORMAT 

chr(number) 



{chr is a function.} 



Argument 

number 



An integer. 



Function Returns 

The chr function returns a value with the char data type. 



DESCRIPTION 

The chr function returns the character that has an ASCII value equal to the value of the low eight bits 
of number. Appendix B contains an ASCII table. 

Chr produces a character with the bit pattern 

number & 16#ff 



Usually, number is between and 127, in which case the character that chr returns is simply the char- 
acter that has the ASCII value of number. If number is greater than 127, chr returns the character 
having the ASCII value of 

number MOD 256 



See the mod listing later in this encyclopedia. 

Note that the ord function is the inverse of chr when ord's argument type is char. (See the ord listing 
later in this encyclopedia.) 
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EXAMPLE 

PROGRAM chr_example; 

{ This program demonstrates three uses for the CHR function. 

VAR 

capital_letter : 65.. 90; 

y : CHAR; 

age : 10. .99; 

c_array : array [1.. 2] of char; 

BEGIN 

{ First, we'll use CHR to convert an integer to its ASCII value. } 

write('Enter an integer from 65 to 90 — '); 

readln(capital_letter) ; 

y := CHR(capital_letter) ; 

writeln(capital_letter:l, ' corresponds to the ', y:l, ' character'); 

writeln; 

{ Second, we'll use CHR to ring the node bell. } 
write(chr(7) ) ; 

The graphics primitive function gpr_$text writes character arrays to the 
display. But suppose you want gpr_$text to write an integer. In order to 
accomplish this task, you would write a routine similar to the following 
which converts a 2-digit integer into a 2-character array. Note that 
48 is the ASCII value for the '0' character, 49 for the '1' character, 
and so on up to 57 for the '9' character. 

writeCEnter an integer from 10 to 99 — '); readln(age) ; 

c_array[l] := CHR((age DIV 10) + 48); 

c_array[2] := CHR((age MOD 10) + 48); 

writeln('The first digit is ', c_array [1] : 1) ; 

writelnCThe second digit is ', c_array [2] :1) ; 

writelnCThe entire array is ', c_array) ; 
END. 



Using This Exampie 

Following is a sample run of the program named chr_example: 

Enter an integer from 65 to 90 — 83 
83 corresponds to the S character 

Enter an integer from 10 to 99 — 71 
The first digit is 7 
The second digit is 1 
The entire array is 71 
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Close — Closes the specified file. (Extension) 



FORIVIAT 

close (filename) {close is a procedure.} 

Argument 

filename A file variable. 



DESCRIPTION 

Use the close procedure to close the file filename that you opened with the open procedure. By clos- 
ing, we mean that the operating system unlocks it. When a program terminates (naturally or as a result 
of a fatal error), the operating system automatically closes all open files. So the close procedure is op- 
tional. 

You cannot close the predeclared files input and output, but if you try, DOMAIN Pascal does not is- 
sue an error. 

If filename is a temporary file, CLOSE (filename) deletes it. 

Please see Chapter 8 for an overview of I/O. 

NOTE: For permanent text files, your program should issue a writeln to the file just be- 
fore closing it in order to flush the file's internal output buffer. If you don't in- 
clude that writeln, the last line of the file may not be written. 
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EXAMPLE 

PROGRAM close_example; 

{ This program demonstrates the CLOSE procedure. } 

CONST 

pathname = 'primates'; 



VAR 



class 

name 

status 



text; {a file variable} 
array[1..20] of char; 
integer32; 



begin 

writeln('This program writes data to file "primates"'); 

open(class, pathname, 'NEW, status); {Open a file for writing.} 
if status = then 

rewrite (class) 
else 

return; 

writeln( 'Enter the names of the children in your class — '); 

writeln('The last entry should be "end"'); 

repeat 

readln(name) ; 

if name <> 'end' then 

writeln(class, name) 
else 

exit; 
until false; 

CLOSE(class) ; {Close the file for writing.} 

{ • . . } 

{ Execute some time-consuming routines that do not access 'primates' . } 

{ . . . } 



{Now, re-open the file for reading.} 

open(class, pathname, 'OLD', status); 
reset (class) ; 

writeln; 

writeln('Here are the names you entered:') 

repeat 

readln(class, name); 

writeln (name) ; 
until eof (class) ; 

CLOSE (class) ; 
end. 



Using This Example 

This program is available on-line and is named close_example. 
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Compiler Directives — Specify a variety of special services including conditional 
compilation and include files. (Extension) 



FORMAT 

The DOMAIN Pascal compiler understands the directives shown in Table 4-9. All directives begin 
with a percent sign (%). You can specify a directive anywhere a comment is valid. To use a directive, 
specify its name inside a comment or as a statement. For example, all of the following formats are 
valid: 

{%directive} 

(*%directive*) 

%directive 

If you specify a directive within a comment, the percent sign must be the first character after the de- 
limiter (where spaces count as characters) . In addition, you do not need to put a semicolon at the end 
of the directive. 

You must place a semicolon after some directives if you use them as statements. Those directives are: 

• %debug; 

• %eject; 

• %include 'pathname'; 

• %list; 

• %nolist; 

• %slibrary 'pathname'; 
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Table 4-9. Compiler Directives 



o 



Directives 


Action 


■A %config 


Lets you easily set up a warning message if you forget 




to compile with the -config compiler option. 


%debug; 


Directs DOMAIN Pascal to compile lines prefixed by 




this directive when you use the -cond compiler 




option. If you don't use -cond when you compile, 




lines prefixed with %debug don't get compiled. 


%6ject; 


Directs DOMAIN Pascal to put a formfeed in the 




listing file at this point. 


■A- %else 


Specifies that a block of code should be compiled if 




the preceding %if predicate %then is false. 


it %elseif predicate %then 


Directs the compiler to compile the code up until the 




next %else, %elseif, or %endif directive, if and 




only if the predicate is true. 


■A- %elseifdef predicate %then 


Checks whether additional predicates have been 




declared with a%var directive. 


it %enable; 


Sets compiler directive variables to true. 


it %endif 


Marks the end of a conditional compilation area of 




the program. 


it %error 'string' 


Prints 'string' as an error message whenever you 




compile. 


it %exit 


Directs the compiler to stop conditionally processing 




the file. 


it %if predicate %then 


Directs the compiler to compile the code up until the 




next %else, %elseif, or %endif directive, if and 




only if the predicate is true. 


it %ifdef predicate %then 


Checks whether a predicate was previously declared with 




a %var directive. 


%include 'pathname'; 


Causes DOMAIN Pascal to read input from the 




specified file. 


%list; 


Enables the listing of source code in the listing file. 



is: is a directive described in "DIRECTIVES ASSOCIATED WITH THE -CONFIG OPTION." 

4-33 Code 



Compiler Directives 



Table 4-9. Compiler Directives (continued) 



Directives 


Action 


%nolist; 


Disables the listing of source code in the listing file. 


%slibrary 'pathname'; 


Causes DOMAIN Pascal to incorporate a precompiled 




library into the program. 


-k %var 


Lets you declare variables that you can then use as 




predicates in compiler directives. 


%warning 'string' 


Prints 'string' as a warning message whenever you 




compile. 



"A- is a directive described in "DIRECTIVES ASSOCIATED WITH THE -CONFIG OPTION." 



DIRECTIVES ASSOCIATED WITH THE -CONFIG OPTION 

This subsection describes the following compiler directives: %if, %then, %elseif, %else, %endif, %if- 
def, %elseifdef, %var, %enable, %config, %error, %warning, and %exit. 

The conditional directives mark regions of source code for conditional compilation. This feature allows 
you to tailor a source module for a specific application. You invoke conditional processing by using the 
-config option when you compile. Unlike the other compiler directives, conditional directives cannot 
be used as comments. 

Several of the directives take a predicate. A predicate can consist of special variables (declared with 
the %var directive) and the optional Boolean keywords not, and, or or. Given that color and mono 
are special variables, here are some possible predicates: 

• color 

o NOT (color) 

• mono OR color 

• (mono AND color) 



%lf predicate %then 

If the predicate is true, DOMAIN Pascal compiles the code after %then and before the next %else, 
%elseif, or %endif directive. 
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Compiler Directives 

For example, to specify that a block of code is to be compiled for a color node, you might choose an 
attribute name such as color to be the predicate. Then write: 

%VAR color {Tell the compiler that 'color' can be used in a predicate.} 



%IF color %THEN 

Code 

%ENDIF; 

To set color to true, you can either use the %enable directive in your source code or the -config op- 
tion in your compile command line. 



%Else 



The %else directive is used in conjunction with %if predicate %then. %Else specifies a block of code 
to be compiled if the predicate in the %if predicate %then clause evaluates to false. For example, con- 
sider the following fragment; 

%VAR color {Tell the compiler that 'color' can be used in a predicate.} 



%IF color %THEN 

Code 
%ELSE {Compile this code if color is false.} 

Code 
%ENDIF ; 

%Elseif predicate %then 

%Elseif predicate %then is used in conjunction with %if predicate %then. It serves an analogous 
pupose to the Pascal statement 

else if cond then statement 

For example, suppose you want to compile one sequence of statements if the program is going to run 
on a color node, and another sequence of statements if the program is going to run on a monochro- 
matic node. To accomplish that, you could organize your program in the following way: 

%VAR color mono {Tell the compiler that 'color' and 'mono' can be } 
{used in a predicate. } 

%IF color %THEN {Compile the following code if color is true.} 

Code for color nodes 
%ELSEIF mono %THEN {Compile the following code if mono is true.} 

Code for monochromatic nodes 
%ENDIF ; 
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To set color or mono to true, you can either use the %enable directive in your source code or the 
-config option in your compile command line. If color and mono are both true, DOMAIN Pascal 
compiles the code for color nodes since it appears first. Note that you can put multiple %elseif direc- 
tives in the same block. 



%Endif 



The %endif directive tells the compiler where to stop conditionally processing a particular area of 
code. 



%lfdef predicate %then 

Use %ifdef predicate %then to check whether a variable was already declared with a %var directive. If 
you accidentally declare the same variable more than once, DOMAIN Pascal issues an error message. 
%Ifdef is a way of avoiding this error message. %Ifdef is especially helpful when you don't know if an 
include file declares a variable. 

For example, consider the following use of %ifdef: 



%INCLUDE 'bitmap init.ins'; 



{Source code that may or may not have used } 
{%VAR to declare the variable 'color'. } 



%IFDEF not (color) %THEN 

%VAR color 
%ENDIF; 



{If color has not been declared } 
{with %VAR, declare it now. } 



NOTE: The difference between %if and %ifdef is the following. Variables in an %if 
predicate are considered true if you set them to true with %enable or -config; 
however, variables in an %ifdef predicate are considered true if they have been 
declared with %var. 



%Elseifdef predicate %then 

%Elseifdef is to %ifdef as %elseif is to %if . Use %elseifdef predicate %then to check whether or not 
additional variables were declared with %var; for example: 



%INCLIJDE 'bitmap init.ins' 



%IFDEF not (color) %THEN 
%VAR color 

%ELSEIFDEF not (mono) %THEN 
%VAR mono 



{Source code that may or may not have 
{used %VAR to declare the variables 
{'color' or 'mono.' 

{If color has not been declared with 
{%VAR, declare it now. 

{If mono has not been declared with 
{%VAR, declare it now. 



%ENDIF; 
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%Var 



The %var directive lets you declare variable and attribute names that will be used as predicates later in 
the program. You cannot use a name in a predicate unless you first declare it with the %var directive. 
The following example declares the names code. old and code. new as predicates: 

%VAR code. old code. new 

The compiler preprocessor issues an error if you attempt to declare with %var the same variable more 
than once. (Use %ifdef or %elseifdef to avoid this error.) 



%Enable 

Use the %enable directive to set a variable to true. (%Enable and the -config compiler switch per- 
form the same function.) You create variables with the %var directive. If you do not specify a particu- 
lar variable in an %enable directive or -config switch, DOMAIN Pascal assumes that it is false. For 
example, the following example declares three variables code. sr9, code. sr8, and code. sr7, and 
sets code . sr9 and code . sr7 to true: 

%VAR code.sr9 code.srS code.sr? 
%ENABLE code . sr9 code . sr7 

The compiler preprocessor issues an error message if you attempt to set (with %enable or -config) the 
same variable to true more than once. 



%Config 

The %config directive is a predeclared attribute name. You can only use %config in a predicate. The 
DOMAIN Pascal preprocessor sets %config to true if your compiler command line contains the -con- 
fig option, and sets %config to false if your compiler command line does not contain the -config op- 
tion. The purpose of the %config directive is to remind you to use the -config option when you com- 
pile; for example: 

%IF color %THEN 

{This is the code for color nodes.} 
%ELSEIF mono %THEN 

{This is the code for monochromatic nodes.} 

%ELSEIF %config %THEN 

%warning('You did not set color or njono to true.'); 
%ENDIF 

NOTE: Do not attempt to declare %config in a %var directive. 
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%Error 'string' 

This directive causes the compiler to print 'string' as an error message. You must place this directive on 
a line all by itself. For example, suppose you want the compiler to print an error message whenever you 
compile with the -config mono option. In that case, set up your program like this: 

%VAR color mono 

%IF color %THEN 

{Code for color node.} 

%ELSEIF mono %THEN 

%ERROR 'I have not finished the code for a monochromatic node.' 
%ENDIF 

If you do compile with the -config mono option, DOMAIN Pascal prints out the following error mes- 
sage: 

(0011) %ERROR 'I have not finished the code for a monochromatic node.' 
******** Line 11: Conditional compilation user error. 
1 error, no warnings, Pascal Rev n.nn 

NOTE: Because of the error, DOMAIN Pascal does not create an executable object. 



%Warning 'string' 

This directive causes the compiler to print 'string' as a warning message. You must place this directive 
on a line all by itself. For example, suppose you want the compiler to print a warning message when- 
ever you forget to compile with the -config color option. In that case, set up your program like this: 

%VAR color mono 

%IF color %THEN 

{Code for color node.} 

%ELSE 

%WARNING 'You forgot to use the -CONFIG color option.' 
%ENDIF 

Then, if you don't compile with the -config color option, DOMAIN Pascal prints out the following er- 
ror message: 

(0011) %WARNING 'You forgot to use the -CONFIG color option.' 

******** Line 11: Warning: Conditional compilation user warning. 
No errors, 1 warning, Pascal Rev n.nn 

A warning does not prevent the compiler from creating an executable object. 



%Exit 

%Exit directs the compiler to stop conditionally processing the file. For example, if you put %exit in 
an include file, DOMAIN Pascal only reads in the code up until %exit. (It ignores the code that ap- 
pears after %exit.) 

%Exit has no effect if it's in a part of the program that does not get compiled. 
Code 4-38 



Compiler Directives 

DIRECTIVES NOT ASSOCIATED WITH THE -CONFIG OPTION 

The remaining compiler directives are not specifically associated with the -config compiler option. 

%Debug; 

The %debug directive marks source code for conditional compilation. The "condition" is the compiler 
switch -cond. If you do compile with the -cond switch, DOMAIN Pascal compiles the lines that begin 
with %debug. If you do not compile with the -cond switch, DOMAIN Pascal does not compile the 
lines that begin with %debug. The reason this directive is called %debug is that it can help you debug 
your program. For instance, consider the following fragment: 

value := data + offset; 
%DEBUG; writeln( 'Current value is ', value:3); 

The preceding fragment contains one %debug directive. If you compile with the -cond option, then 
the system executes the writeln statement at runtime. If you compile without the -cond option, the sys- 
tem does not execute the writeln statement at runtime. Therefore, you can compile with the -cond op- 
tion until you are sure the program works the way you want it to work, and then compile without the 
-cond option to eliminate the (now) superfluous writeln message. 

The %debug directive applies to one physical line only, not to one DOMAIN Pascal statement. There- 
fore, in the following example, %debug applies only to the for clause. If you compile with -cond, 
DOMAIN Pascal compiles both the for statement and the writeln procedure. If you compile without 
-cond, DOMAIN Pascal compiles only the writeln procedure (and thus there is no loop). 

%DEBUG; FOR j := 1 to max_size do 
WRITELN ( barr ay [ j ] ) ; 

If you %debug within a line, text to the left of the directive is always compiled, and text to the right of 
the directive is conditionally compiled. 

%Eiect; 

The %eject directive does not affect the .bin file; it only affects the listing file. (The -1 compiler option 
causes the compiler to create a listing file.) The %eject directive specifies that you want a page eject 
(formfeed) in the listing file. The statement that follows the %eject directive appears at the top of a 
new page in the listing file. 

%lnclude 'pathname'; 

Use the %include directive to read in a file ('pathname') containing DOMAIN Pascal source code. 
This file is called an include file. The compiler inserts the file where you placed the %include direc- 
tive. 

Many system programs use the %include directive to insert global type, procedure, and function decla- 
rations from common source files, called insert files. The DOMAIN system supplies insert files for your 
programs that call system routines. The insert files are stored in the I sy si ins directory; see Chapter 6 
for details. 

DOMAIN Pascal permits the nesting of include files. That is, an include file can itself contain an %in- 
clude directive. 

The compiler option -idir enables you to select alternate pathnames for insert files at compiletime. See 
Chapter 6 for details. 

NOTE: This directive has no effect if it's in a part of the program that does not get com- 
piled. 
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%List; and %nolist; 

The %list and %nolist directives do not affect the .bin file, they only affect the listing file. (The -1 
compiler option causes the compiler to create a listing file.) %List enables the listing of source code in 
the listing file, and %nolist disables the listing of source code in the listing file. For example, the fol- 
lowing sequence disables the listing of the two insert files, and then re-enables the listing of future 
source code: 

%NOLIST; 

%INCLUDE '/sys/ins/base. ins. pas' ; 

%INCLUDE Vsys/ins/ios. ins. pas' ; 

%LIST; 



%List is the default. 



%SIibrary 'pathname'; 

The %slibrary directive is analogous to the %include directive. While %include tells the compiler to 
read in DOMAIN Pascal source code, %slibrary tells it to read in previously-compiled code. 

The %slibrary directive tells the compiler to read in a precompiled library residing at 'pathname'. The 
compiler inserts the precompiled library where you place the %slibrary directive. The compiler acts as 
if the files that were used to produce the precompiled library were included at this point, except that 
any conditional compilation will have already occurred during precompilation. 

Precompiled libraries can only contain declarations; they may not contain routine bodies and may not 
declare variables that would result in allocating storage in the default data section, DATA$. This 
means the declarations must either put variables into a named section, or must use the extern variable 
allocation clause. See Chapter 3 for more information about named sections, and Chapter 7 for details 
on extern. 

Use the -slib compiler option (described in Chapter 6) to precompile a library and then insert -slib's 
result in 'pathname'. For example, if you create a precompiled library called mystuff . ins .plb, this 
is how to include it in your program: 

%SLIBRARY 'mystuff .ins. plb' ; 

Precompiled library pathnames by default end in .plb. 
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Cos — Calculates the cosine of the specified number. 



FORIVIAT 

cos(number) {cos is a function.} 

Argument 

number Any real or integer value in radians (not degrees) . 

Function Returns 

The cos function returns a real value (even if nunnber is an integer) . 

DESCRIPTION 

The cos function calculates the cosine of number. 

EXAMPLE 

PROGRAM cos_example; 

{ This program demonstrates the COS function. } 

CONST 

pi = 3.1415926535; 

VAR 

degrees : INTEGER; 

q, cl, c2, radians : REAL; 

BEGIN 

q := 0.5; 

cl := COS(q); { Find the cosine of one-half radians. } 

writelnCThe cosine of ', q:5:3, " radians is ', cl:5:3); 

{ The following statements show how to convert from degrees to radians. } 
{ More specifically, they find the cosine of 14 degrees.} 

degrees := 14; 

radians := ((degrees * PI) / 180.0); 

c2 := COS (radians) ; 

writelnCThe cosine of ', degrees: 1, ' degrees is ', c2:5:3); 
END. 
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Using This Example 

If you execute the sample program cos_example, you get the following output: 

The cosine of 0.500 radians is 0.878 
The cosine of 14 degrees is 0.970 
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Discard — Explicitly discards the return value of an expression. (Extension) 



FORIVIAT 

discard (exp) {discard is a procedure.} 

Argument 

exp Any expression, including a function call. 

DESCRIPTION 

In its effort to produce efficient code, the compiler sometimes issues warning messages concerning op- 
timizations it performs. Those optimizations might not be right for your particular situation. For exam- 
ple, if you compute a value but never use it, the compiler may eliminate the computation, or the as- 
signment of the value, and issue a warning message. 

However, there are times when you call a function for its side effects rather than its return value. You 
don't need the value, but a Pascal function must always return a value to retain legal program syntax. 
You can't eliminate the function call without adversely affecting your program, but if you don't use the 
value, the compiler's optimizer automatically discards the return value and issues a warning message. 

Since you know the return value is useless, in such a case you may want to eliminate this particular 
warning message. DOMAIN Pascal's discard procedure explicitly throws away the value of its exp and 
so gets rids of the warning. For example, to call a function that returns a value in argl without check- 
ing that value, use discard as follows: 

DISCARD(my_function(argl) ) ; 
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EXAMPLE 

PROGRAM discard_example; 

VAR 

payment, monthly_sal : real; 

{ The following function figures out whether a user can afford the } 
{ mortgage payments for a given house based on the rule that no more } 
{ than 28% of one's gross monthly income should go to housing costs. } 

FUNCTION enough (in payment : real; 

in out monthly_sal : real) : boolean; 
VAR 

amt_needed : real ; 

BEGIN 

writeln; 

amt_needed := monthly_sal * 0.28; 

if amt_needed < payment then 

begin 

enough := false; 

monthly_sal := payment / (0.28); 

writeln ('Your monthly salary needs to be ', monthly_sal: 6: 2) ; 

end 
else 

begin 

enough := true; ^ 

writeln ('Amazing! You can afford this house.'); i 

end 
END; {end function enough} 

BEGIN {main program} 

write ('How much is the monthly payment for this house? '); 

readln (payment) ; 

write ('What is your gross monthly salary? '); 

readln (monthly_sal) ; 

{ The function enough can change the value of the global variable } V_. 

{ monthly_sal, so the function call is important, but its return } 
{ value is not. DISCARD that return value. } 

DISCARD (enough (payment ,monthly_sal) ) ; 
END. 



\ 



Using This Example 

Following is a sample run of the program named discard_example: 

How much is the monthly payment for this house? 928 ^_ 

What is your gross monthly salary? 2400 ^ ^ 

Your monthly salary needs to be 3314.29 
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Dispose — Deallocates the storage space that a dynamic variable was using. 
(Also refer to the listing for New.) 



FORMAT 

Dispose is a predeclared procedure that takes one of two formats. The format you choose depends on 
the format you use to call the new procedure. If you create a dynamic variable with the short form of 
new, then you must use the short form for dispose, which is: 

dispose(p) {dispose is a procedure.} 

If you create a dynamic variant record with the long form of new, then you must use the long form of 
dispose, which is: 

dispose(p, taQ^.. tagN); 



Arguments 

tag One or more constants. The number of constants in a dispose call must match 

the number of constants in the new call. 

p A variable declared as a pointer. After you call DISPOSE (p), DOMAIN Pascal 

sets p to nil. 



DESCRIPTION 

If p is a pointer, then DISPOSE (p) causes Pascal to deallocate space for the occurrence of the record 
that p points to. Deallocating means that Pascal permits the memory locations occupied by the dynamic 
record to be occupied by a new dynamic record. For example, consider the following declarations: 

TYPE 

employeepointer = "employee; 
employee = record 



f irst_name 
last_name 
next_emp 
end; 



array [1.. 10] of char; 
array [1.. 14] of char; 
employeepointer ; 



VAR 

current_employee : employeepointer; 

To store employee records dynamically, call NEW(current_employee) for every employee. If an 
employee leaves the company, and you want to delete his or her record, you can call DISPOSE (cur - 
rent_employee) . Dispose returns the storage occupied by that record for reuse by a subsequent new 
call. 

If you create a dynamic record using a long-form new procedure, then you must call dispose with the 
same constants. For example, if you create a dynamic record by calling NEW(widget , 378 , true) , 
then to deallocate the stored record, you must call DISPOSE (widget , 378, true). 
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Note that the dispose procedure merely deallocates the record. If this disconnects a linked list, then it 
is up to you to reset the pointers. If some other variable points to this record and another program uses 
dispose to deallocate the record, then you get erroneous results. The moral: use dispose carefully. 

NOTE: If you call DISPOSE (p) when p is nil, DOMAIN Pascal reports an error. It is 
also an error to call dispose when p points to a block of storage space that you 
already deallocated with dispose. Finally, if you use a pointer copy that points to 
deallocated space, the results are unpredictable. 



EXAMPLE 

For a sample program that uses dispose, refer to the new listing later in this encyclopedia. 
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Div — Calculates the quotient (excluding the remainder) of two Integers. 



FORMAT 

d1 div d2 



{div is an operator.} 



Arguments 

d1, d2 



Any integer expression. 



Operator Returns 

The result of a div operation is always an integer. 



DESCRIPTION 

The expression (dl DIV d2) produces the integer (nonfractional) result of dividing d1 by 62. Div 
uses the division rules of standard mathematics regarding negatives. For example, consider the follow- 
ing results: 

-9 DIV 3 is equal to -3 

-10 DIV 3 is equal to -3 

-11 DIV 3 is equal to -3 

-12 DIV 3 is equal to -4 

-13 DIV 3 is equal to -4 



9 


DIV 


3 


is 


equal 


to 


3 


10 


DIV 


3 


is 


equal 


to 


3 


11 


DIV 


3 


is 


equal 


to 


3 


12 


DIV 


3 


is 


equal 


to 


4 


13 


DIV 


3 


is 


equal 


to 


4 



o 



9 DIV (-3) is equal to -3 

10 DIV (-3) is equal to -3 

11 DIV (-3) is equal to -3 

12 DIV (-3) is equal to -4 

13 DIV (-3) is equal to -4 



-9 DIV (-3) 

-10 DIV (-3) 

-11 DIV (-3) 

-12 DIV (-3) 

-13 DIV (-3) 



is equal to 3 

is equal to 3 

is equal to 3 

is equal to 4 

is equal to 4 



To find the remainder of an integer division operation, use the mod operator. (See the mod listing 
later in this encyclopedia.) 

See the NOTE in the "Expressions" listing later in this encyclopedia for information on using binary 
and unary operators together. 
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EXAMPLE 

PROGRAM div_example; 

{ This program converts a 3-digit integer to a 3-character array. } 

{ Note that the character has an ASCII value of 48, the character 1 } 

{ has an ASCII value of 49, and so on up until the character 9 which has } 

{ an ASCII value of 57. } 

VAR 

X : 100. .999; 

digits : array[1..3] of char; 

BEGIN 

write('Enter a three-digit integer — '); 
readln(x) ; 

digits [1] :=chr(48 + (x DIV 100)); 
X := X MOD 100; 

digits[2] := chr(48 + (x DIV 10)); 
digits [3] := chr(48 + (x MOD 10)); 

writeln(digits) ; 
END. 



Using This Example 

This program is available on-line and is named div_example. 
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Do — Refer to the For or While listings later in this encyclopedia. 
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Downto — Refer to If later in this encyclopedia. 



V 
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Else — Refer to If later in this encyclopedia. 



V 



o 
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End — Signifies tiie end of a group of Pascal statements. 



FORIVIAT 

End is a reserved word. 

DESCRIPTION 

End is the terminator for a sequence of Pascal statements. A Pascal program must contain at least as 
many ends as begins. 

Pascal requires a begin/end pair to bracket a compound statement. (Refer to the "Statements" listing 
later in this encyclopedia.) 

Pascal requires end (without an accompanying begin) in the following situations: 

• To terminate a case command. 

• To terminate a record declaration. 

Inexperienced Pascal programmers often wonder whether or not to put a semicolon (;) after an end in 
an if/then/else statement. Just remember the following rule: never put a semicolon after an end if it 
appears before the reserved word else. 



{ 
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EXAMPLE 

PROGRAM begin_end_example; 

{This program does very little work, but does have lots of BEGINS and ENDs.} 

TYPE 

student = record 
age : 6. .12; 
id : integerlB; 
end; {student record definition} 

VAR 

X : integer32; 

PROCEDURE do_nothing; 
BEGIN {do_nothing} 

writelnCYou have triggered a procedure that does absolutely nothing.'); 

writelnC Though it does do nothing with elan.'); 
END; {do_no thing} 

FUNCTION do_next_to_nothing(var y : integer32) : integer32; 
BEGIN {do_next_to_no thing} 

do_next_to_nothing := abs(y); 
END; {do_next_to_nothing} 



BEGIN {main procedure} 

writeCEnter an integer — '); readln(x) ; 
if x < 

then BEGIN 

writelnCYou have entered a negative number!!!'); 
writelnCIts absolute value is ', do_next_to_nothing(x) : 1) 
END 
else if X = 
then BEGIN 

writelnCYou have entered zero'); 
do_nothing; 
END 
else 

writelnCYou have entered a positive number!!!'); 
END. {main procedure} 



Using This Example 

This program is available online and is named begin_end_example. 
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Eof — Tests the current file position to see if it is at the end of the file. 






FORMAT 

eof {filename) {eof is a function.} 

Argument 

filename A file variable symbolizing the pathname of an open file. Filename is an optional 

argument. If you do not specify filename, DOMAIN Pascal assumes that the file 
is standard input (input). 

Function Returns 

The eof function returns a Boolean value. 

DESCRIPTION 

The eof function returns true if the current file position is at the end of file filename; otherwise, it re- 
turns false. With one exception, filename must be open for either reading or writing when you call eof. 
The one exception occurs when filename is input; for a description of this exception, see the "Interac- 
tive I/O" section in Chapter 8. 



V 
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EXAMPLE 

PROGRAM eof _example ; 

CONST 

title_of_poem = 'annabel_lee' ; 



VAR 



poetry 
stat 
a line 



text; 

integer32; 

string; 



BEGIN 

{Open file anabel_lee for reading.} 

open(poetry, title_of_poem, 'OLD', stat); 
if stat = then 

reset (poetry) 
else 

return; 

{Read each line from the file and write each line to the screen. } 
{Halt execution when end of file is reached. } 

while not EOF (poetry) do 
begin 

readln (poetry, a_line) ; 
writeln (output , a_line) ; 
end; 

END. 



Using This Example 

This program is available on-line and is named eof_example. 
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Eoln — Tests the current file position to see if It Is pointing to the end of a line. 



FORMAT 

eoln(0 



(eoln is a function.} 



Argument 

f 



A variable having the text data type. F is optional; if you do not specify it, eoln 
tests the standard input (input) file. 



Function Returns 

The function returns a Boolean value. 

DESCRIPTION 

The eoln function returns true when the stream marker points to an end-of-line character; otherwise, 
with two exceptions, eoln returns false. The two exceptions are: 

• Eoln causes a runtime error if f was not opened for reading (with reset) or for writing (with 
rewrite) . However, you do not need to open input or output for reading or for writing. (See 
the "Interactive I/O" section in Chapter 8 for details on input and output.) 

• Eoln causes a runtime error if EOF(f ) is true. 



V 



V. 
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EXAMPLE 

PROGRAM eoln_exaniple; 

CONST 

title_of_poem = 'annabel_lee' ; 



VAR 



poetry 
Stat 
a char 



text; 

integer32; 

char; 



BEGIN 



{ Open file annabel_lee for reading. } 

open(poetry, title_of_poem, 'OLD', stat) ; 
if stat = 

then reset (poetry) 

else return; 

{ Read in the first line of the poem one character at a time, } 
{ and write each character to the screen. } 

repeat 

read (poetry, a_char) ; 

writeln (output, a_char) ; 
until EOLN (poetry) ; 

END. 



Using This Example 

This program is available on-line and is named eoln_example. 
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Exit — Transfers control to the first statement following a For, Wliile, or Repeat 
loop. (Extension) 



FORMAT 

Exit is a statement that neither takes arguments nor returns values. 



DESCRIPTION 

Use exit to terminate a loop prematurely; that is, to jump out of the loop you're in. In nested loops, 
exit applies to the innermost loop in which it appears. You can use exit within a for, while, or repeat 
loop only. If exit appears elsewhere in a program, DOMAIN Pascal issues an error. 

It is preferable to use exit for jumping out of a loop prematurely rather than goto. That's because goto 
inhibits some compiler optimizations that exit does not. 



EXAMPLE 




PROGRAM exit_ 


_example ; 


VAR 




i, J 


: integerl6; 


data 


: real ; 


geiger 


: array [1. .5 



1..3] of real := [ [* of 0.0] , [* of 0.0],]; 

BEGIN 

for i := 1 to 4 do 
begin 
writeln; 

for j := 1 to 3 do 
begin 

writeln(chr (10) , 'Enter the data for coordinates', i:2, ',', j:l); 
write('(or enter -1 to jump down to the next row) — '); 
readln(data) ; 
if data = -1 then 

EXIT 
else 

geiger [i,j] := data; 
end; {for j} 
end; {for i} 
END. 
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Using This Example 

Following is a sample run of the program named exit_example: 

Enter the data for coordinates 1 , 1 

(or enter -1 to jump down to the next row) — 1.2 

Enter the data for coordinates 1,2 

(or enter -1 to jump down to the next row) — -1 



Enter the data for coordinates 2 , 1 

(or enter -1 to jump down to the next row) — 3.2 

Enter the data for coordinates 2,2 

(or enter -1 to jump down to the next row) — 1.2 

Enter the data for coordinates 2,3 

(or enter -1 to jump down to the next row) — 4.3 



Enter the data for coordinates 3 , 1 

(or enter -1 to jump down to the next row) — -1 



Enter the data for coordinates 4,1 

(or enter -1 to jump down to the next row) — 1.3 

Enter the data for coordinates 4,2 

(or enter -1 to jump down to the next row) — 4.2 

Enter the data for coordinates 4,3 

(or enter -1 to jump down to the next row) — -5 
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Exp — Calculates the value of e, the base of natural logarithms, raised to the 
specified power. (See also Ln.) 



FORMAT 

exp (number) {exp is a function.} 

Argument 

number Any real or integer expression. 

Function Returns 

The exp function returns a real value. 

DESCRIPTION 

The exp function returns e raised to the power specified by number. 

e to 16 significant digits is 2.718281828459045. 

Pascal does not support an exponentiation function. However, you can use the exp and In functions to 
simulate exponentiation. Just remember the following formula: 

a ^ = EXP(b * LN(a)) 

See the In listing later in this encyclopedia. 
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EXAMPLE 

PROGRAM exp_example; 

{This example demonstrates the use of EXP in calculating the} 

{exponential growth of bacteria. } 

CONST 

cl = 0.3466; 

VAR 

start ing_quantity : INTEGER; 
ending_quantity, elapsed_time : REAL; 

BEGIN 

writeCHow many bacteria are there at zero hour? — '); 
readln( start ing_quantity) ; 
write('How many hours pass? — '); 
readln(elapsed_time) ; 

ending_quantity := start ing_quantity * EXP(cl * elapsed_time) ; 

writelnC There will be approximately ' , ending_quantity: 1, ' bacteria.'); 
END. 



Using This Example 

Following is a sample run of the program named exp_example: 

How many bacteria are there at zero hour? — 10500 

How many hours pass? — 5,6 

There will be approximately 7.313705E+04 bacteria. 
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Expressions 

Throughout this encyclopedia, we refer to expressions. Here, we define expressions. An expression 
can be any of the following: 

• A constant declared in a const declaration part 

• A variable declared in a var declaration part 

• A constant value 

• A function call 

• Any one of the above preceded by a unary operator appropriate to its data type 

• Any two of the above separated by a binary operator appropriate to their data types 

You can organize expressions into more complex expressions with parentheses. For example, the odd 
function requires an integer expression as an argument. The following program fragment demonstrates 
several possible arguments to odd: 

CONST 

century := 100; 
VAR 

x, y : integer; 
result : boolean; 

BEGIN 



result 
result 
result 
result 
result 
result 



= ODD (century) ; 

= ODD(x) ; 

= 0DD(15) ; 

= 0DD(sqrt(25)) ; 

= ODD(x + y) ; 

= ODD((x * 3) + sqr(y)) ; 



{a constant} 

{a variable} 

{a value} 

{a function} 

{an operation} 

{several operations} 



NOTE: You cannot follow a binary operator with a unary operator of lower precedence. 
For example, consider the following proper and improper expressions: 

9 DIV -3 {improper expression} 

9 DIV (-3) {proper expression} 

5 * -100 {improper expression} 

5 * (-100) {proper expression} 



Table 4-2 in the beginning of this chapter shows the order of precedence of op- 
erators. 
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Find — Sets the file position to tlie specified record. (Extension) 



FORIVIAT 

find(file_variable, record_number, error_status) ; {find is a procedure.} 



Arguments 

file_variable Must be a variable having the file data type. File_variable cannot be a variable 

having the text data type. 

record_number Must be an integer between 1 and n or between -1 and -n, where 1 denotes the 
first record of the file and n denotes the last record. 

error_status Must be declared as a variable with the integer32 data type. DOMAIN Pascal re- 

turns a hexadecimal number in error_status which has the following meaning: 

— no error or warning occurred, 
greater than — an error occurred, 
less than — a warning occurred. 

NOTE: Your program is responsible for handling the error. We detail error han- 
dling in Chapter 9. 

DESCRIPTION 

Before reading this, make sure you are familiar with the description of I/O in Chapter 8. 

When you open a file for reading, the operating system sets the stream marker to the beginning of the 
file. You can call read to move this stream pointer sequentially, or you can call find to move it ran- 
domly. 

Before you can call find, you must have first opened the file symbolized by file_variable for reading. 
(See Chapter 8 for a description of opening files for reading.) When you call find, DOMAIN Pascal 
sets the stream marker to point to the record specified by record_number. 

If you specify a record_number between 1 and n, where n is the number of records in the file, find lo- 
cates that number record. If record_nunnber is between -1 and -n, find counts backward from the 
end of the file to locate the proper record. For example, if there are five records in the file and you 
specify -4 for record_number, DOMAIN Pascal counts back four from the end of the file and re- 
trieves record number 2. 

If you specify zero for record_n umber, DOMAIN Pascal returns an error code in error_status. 

If you specify a record_number that is one greater than the number of records stored in the file, 
DOMAIN Pascal does not return an error code, but does not change the stream marker either. 

After executing a find, DOMAIN Pascal sets the stream marker to point to the beginning of the next 
record. For example, if record_number is 2, then after executing a find, DOMAIN Pascal sets the 
stream marker to point to record 3. 

Frequently, programmers use the find procedure with the replace procedure (which is described later 
in this encyclopedia). 
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NOTE: The term "record", means one occurrence in a DOMAIN record-structured 
(rec) file, which may or may not be a DOMAIN Pascal record type. 

EXAMPLE ^- 

PROGRAM f ind_and_replace_example; 

{ This program demonstrates the FIND and REPLACE procedures. } 

%NOLIST; { We need these include files for error checking. } 

%INCLIJDE '/sys/ins/base. ins .pas' ; 

%INCLUDE '/sys/ins/error. ins. pas' ; 

%INCLUDE '/sys/ins/streams. ins. pas' ; 

%LIST; 

CONST 

pathname = 'hislOl' ; 

TYPE ^-^^ 

student = RECORD i 

V 

name : array [1.. 12] of char; ' 

age : integerlB; 
END; 



VAR 

class 
a_student 

St 

more_corrections 

particular_record 

n 



FILE OF Student; 

student ; 

status_$t; 

char ; 

integerie := 0; V_ 

integerl6; 



PROCEDURE print_records; 
BEGIN 

n := 0; 

writeln(chr (10) , 'Here are the records stored in the file:'); 
reset (class) ; 

repeat ^ 

n := n + 1; I 

read(class, a_student) ; ^- 

writelnC record ', n:2, ' ', a_student . name , a_student .age) ; 
until eof (class); 
END; 

PROCEDURE correct_errors ; 
BEGIN 

write('Enter the number of the record you wish to change — '); 

readln(particular_record) ; 

if particular_record = n+1 then 

writeln ('There are only ', n:2, ' records in the file.') 
else 

BEGIN 

FIND(class, particular_record, st.all); 

if St. code = then / 

BEGIN V_ 

writeCWhat should this name be — '); readln(a_student .name) ; 
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write('What should this age be — '); readln(a_student .age) ; 

class" := a_student; 

REPLACE (class) ; 

END 
else if St. code = stream_$end_of_f ile then 

BEGIN 

write ('You specified a number greater than the number of ' ) ; 

writeln ('records in the file.'); 

END 
else 

error_$print (st) ; 
END; 



END; 



BEGIN {main procedure} 

open(class, pathname, 'OLD', st.all); 
if St. code = then 

BEGIN 

repeat 

print_records ; 

write ('Do you want to correct any records? (enter y or n) — '); 

readln(more_corrections) ; 

if more_corrections = 'y' then 
correct_errors 

else 

exit; 

until false; 

END 
else if St. code = stream_$name_not_found then 

writeln('Did you remember to run put_example to create hislOl?') 
else 

error_$print (st) ; 

END. 



Using This Example 

Following is a sample run of the program named f ind_and_replace_example: 

Here are the records you have entered: 

record 1 Kerry 28 

record 2 Barry 26 

record 3 Jan 25 

Do you want to correct any records? (enter y or n) — y 

Enter the number of the record you wish to change — 2 

What should this name be — Sandy 

What should this age be — 27 

Here are the records you have entered: 

record 1 Kerry 28 

record 2 Sandy 27 

record 3 Jan 25 

Do you want to correct any records? (enter y or n) — n 
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Firstof — Returns the first possible value of a type or a variable. (Extension) 



FORMAT 
firstof (x) 



{firstof is a function.} 



Argument 

X Is either a variable or the name of a data type. The data type can be a 

predeclared DOMAIN Pascal data type, or it can be a user-defined data type. X 
cannot be a record, file, or pointer type. 

Function Returns 

The firstof function returns a value having the same data type as x. 

DESCRIPTION 

The firstof function returns the first possible value of x according to the following rules: 

Data Type of x Firstof returns 

integer or integerl6 -32767 

integer32 -2147483647 

char The character represented by CHR ( ) 

called nul. 

boolean False. 

enumerated The first (leftmost) identifier in the 

data type declaration. 
array The lower bound of the subrange that 

defines the array's size. 

The firstof function is particularly useful for finding the first element of an enumerated type (as in the 
example) . 
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EXAMPLE 

PROGRAM firstof_lastof_example; 

TYPE 

astronomers = (aristotle, galileo, newton, tycho, kepler) ; 

VAR 

stargazers : astronomers ; 

BEGIN 

writelnCThe following is a list of great a'stronomers: ' ) ; 
for stargazers := firstof (astronomers) to lastof (astronomers) do 
writeln(stargazers) ; 

END. 



Using This Example 

If you execute the sample program named f irstof_lastof_example, you get the following output: 

The following is a list of great astronomers: 

ARISTOTLE 

GALILEO 

NEWTON 

TYCHO 

KEPLER 
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For — Repeatedly executes a statement a fixed number of times. 



FORIVIAT 

for index_variable := start_exp to | downto stop_exp do 

stmnt; {for is a statement} 



Arguments 

index_variable Any variable declared as an ordinal type. The ordinal types are enumerated, sub- 

range, integer. Boolean, and char. Note that index_variable cannot be a real 
number. As an extension to standard Pascal, DOMAIN Pascal permits the in- 
dex_variable to be declared in a scope other than the scope of the routine imme- 
diately containing the for loop. 

start_exp An expression matching the type of the index_variable. 

stop_exp An expression matching the type of the index_variable. 

stmnt A simple statement or compound statement. (Refer to the "Statements" listing 

later in this encyclopedia.) 



DESCRIPTION 

For, repeat, and while are the three looping statements of Pascal. With for, you explicitly define both 
a starting and an ending value to the index_variable. 

When executing a for loop, Pascal initializes the index_variable to the value of the start_exp, and then 
either increments (to) or decrements (downto) the value of the index_variable by 1 until its value 
equals that of the stop_exp. When the index_variable equals the value of the stop_exp, Pascal exe- 
cutes the statements in the loop one final time before exiting the loop. 

If index_variable is an integer or subrange variable, for increments or decrements its value by 1 for 
each cycle. If index_variable is a char variable, then for increments or decrements its ASCII value by 
1 for each cycle. If index_variable is an enumerated variable, then incrementing means selecting the 
next element in sequence and decrementing means selecting the preceding element. If index_variable 
is a Boolean, then true has a value greater than false. 

The keyword to causes incrementing; the keyword downto causes decrementing. 

If you want to jump out of a for loop prematurely (i.e., before the value of the index_variable equals 
the value of the stop_exp), you have the following choices: 

o Execute an exit statement to transfer control to the first statement following the for loop. 

• Execute a goto statement to transfer control to outside of the loop. 

In addition to these measures, you can also execute a next statement to skip the remainder of the 
statements in the loop and proceed to the next iteration. Here are some tips for using the for state- 
ment: 

• Within the stmnt, you are not allowed to change the value of the index_variable. 
Code 4-68 



o 



For 



If you set up a meaningless relationship between the start_exp and the stop_exp (for exam- 
ple, FOR X := 8 TO 5 or FOR X := 10 DOWNTO 20), Pascal does not execute the loop 
even once. 



EXAMPLE 

PROGRAM for_example; 

VAR 

time, year, zeta : integerl6 := 0; 
hurricanes : (king, donna, cleo, betsy, inez) ; 
scores : array[1..5, 1..3] of integerl6; 
i, j : integerlB; 

BEGIN 

{If you do not use a BEGIN/END pair, FOR assumes that the loop consists of } 
{the first statement following it. } 
FOR time := 1 TO 3 DO 
writeln(time) ; 

{To create a loop consisting of multiple statements, enclose the loop in } 
{a BEGIN/END pair. } 

FOR time := 21 TO 30 DO 

begin 

year := year + time; 

writeln(year:5) ; { Write a running total. } 

end; 

{Here's an example of DOWNTO. } 

FOR time := year DOWNTO (year - 100) DO 
zeta := zeta + (time * 3); 

{Here's an example of an enumerated index_variable. } 
FOR hurricanes := donna TO inez DO 
writeln(hurricanes) ; 

{And finally, we use nested FOR loops to load a 2-dimensional array. } 
FOR i := 1 TO 5 DO 

begin {for i} 

FOR j := 1 TO 3 DO 

begin {for j} 

write ('Enter the score for player ',i:l,' game ',j:l,' — '); 
readln ( scores [ i , j ] ) ; 
end; {for j} 



writeln; 

end; {for i} 



END, 



Using This Example 

This program is available on-line and is named for_example. 
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Get — Advances the stream marker to the next component of a file. 



"^^y 



FORMAT 

get(f) 



{get is a procedure.} 



Argument 

f 



A variable having the file or text data type. 



DESCRIPTION 

If f is a file variable, calling get causes the operating system to advance the stream marker so that it 
points to the next record in the file. If f is a text variable, calling get causes the operating system to ad- 
vance the stream marker so that it points to the next character in the file. 

After calling get to advance the stream marker, you can use another statement to read in the data that 
the stream marker points to and assign it to a variable from your program. Therefore, the sequence for 
reading in data looks like the following: 

GET(f); { Advance the stream marker. } 

variable := f"; { Set variable equal to whatever the stream marker } 
{ points to. } 

For example, the following program fragment demonstrates input via the get procedure: 
VAR 



primes 
poem 
a_number 
a letter 



file of integerl6; 
text ; 

integerlB; 
char ; 



BEGIN 



GET (primes) ; 

a_number := primes"; { Set a_number equal to next record in primes. } 



GET (poem) ; 
a_letter := poem"; 



{ Set a_letter equal to next character in poem. } 



Note that the two statements 

GET (poem) ; 

a_letter := poem"; { Set a_letter equal to next character in poem. 

are identical to the single statement 
READ (poem, a_letter) ; 

Also notice that unlike read, get allows you to save the contents of f". 
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You must open f for reading (with reset) before calling get. If EOF(f ) is true, calling GET(f ) causes 
a "read past end of file" error trap. 

EXAMPLE 

PROGRAM get_example; 

{ This program demonstrates the GET procedure. } 
{ File 'hislOl' must exist before you run get_example. } 
{ To create 'hislOl' , you must run put_example. } 

%NOLIST; 

%INCLUDE ' /sys/ins/base . ins . pas' ; 

%INCLUDE Vsys/ins/error. ins. pas' ; 

%INCLUDE '/sys/ins/streams. ins. pas' ; 

%LIST; 

CONST 

f ile_to_read_from = 'hislOl' ; 



TYPE 




student = 




record 




name 


: array [1. .12] of char; 


age 


: integerl6; 


end; 




VAR 




class 


: file of student; 


a_student 


: student; 


St 


: status_$t; 



BEGIN 

{Open a file for reading.} 

open(class, f ile_to_read_from, 'OLD', st.all ); 
if St. code = 
then reset (class) 

else if St. code = stream_$name_not_found 
then begin 

writeln('Did you forget to run put_example?' ) ; 
return; 
end 
else error_$print (st) ; 

{Now that the rec file is open, read all the records from it. } 
repeat 

a_student := class"; 
GET(class) ; 

write(chr(10) , a_student .name) ; 
writeln(a_student .age: 2) ; 
until eof (class) ; 
END. 



Using This Example 

This program is available on-line and is named get_example. 
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Goto — Unconditionally jump to a specified label in the program. 



FORMAT 
goto Ibl; 



{goto is a statement.} 



Argument 

Ibl 



Is an unsigned integer or identifier that you have previously declared as a label. 
(For information on declaring labels, see the "Label Declaration Part" section in 
Chapter 2.) 



V„. 



DESCRIPTION 

A goto statement breaks the normal sequence of program execution and transfers control to the state- 
ment immediately following Ibl. 

A declared Ibl usually is local to the block in which it is declared. That is, if you know you declared a 
label, but the compiler still reports the following error, you must move your label declaration to the 
correct procedure or function: 

(Name_of_Label) has not been declared in routine (name_of_routine) 

It is illegal to use goto to jump inside a structured statement (for example, a for, while, case, with, or 
repeat) from outside that statement. This means a fragment like this produces an error: 

if error_flag = true then 
goto cleanup; 



for i := 1 to 10 do 




begin 




cleanup: 


{WRONG ! } 


end; 


{close for statement} 



It is illegal to jump into an if/then/else statement if you compile with the -iso option. See Chapter 6 
for more details. 

Gotos are useful for handling exceptional conditions (such as an unexpected end of file). However, 
the compiler usually generates better code if you use exit rather than goto to jump out of a loop pre- 
maturely. 

Nonlocal gotos, whose target Ibl is in the main program or some other routine at a higher level, have a 
great effect on the generated code. They generally shut off most compiler optimizations on the code 
near the target Ibl. In order to produce the most efficient code, you should try to use goto as infre- 
quently as possible. 
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NOTE: You cannot jump into a structured statement from outside that statement. For 
example, the following contains two jumps that are always wrong and one jump 
that is incorrect if you compile with the -iso switch: 

PROGRAM bad_gotos; 
VAR 

z,x, value : integerl6; 

a_char : char ; 
LABEL 

900; 

PROCEDURE foo; 
LABEL 

100; 

BEGIN 

for X := 1 to 100 do 

begin 

writeln ('value ', x) ; 
100: write ('Enter a value '); 

readln (value) ; 

z := z + value; 

end; 
GOTO 100; {ILLEGAL: cannot jump to a label inside} 

{the for loop. } 

END; 



BEGIN 

write ('Do you want to use the program? '); 

readln (a_char) ; 

if a_char = 'y' then 

GOTO 100 {ILLEGAL: cannot jump to a label in } 

{another routine. } 

else if a_char = 'n' then 

GOTO 900 {ILLEGAL IF COMPILED WITH -ISO SWITCH:} 

{cannot jump to a label that's inside } 
{another statement. } 

else if a_char = 'o' then 

writeln ('o is not a legal response') 
else 

900: writeln ('ok, we won" t use the program'); 
END. 
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Note that you can use goto to jump directly from a nested routine to an outer routine. For example, 
procedure xxx issues a valid goto in the following program: 

Program non_local_goto ; 
Label 

900; 

Procedure xxx; 
BEGIN 

GOTO 900; 

END; 

BEGIN 

900: writelnCback in main program.'); 

END. 

EXAMPLE 

PROGRAM goto_example; 

TYPE 

possible_values = 10..25; ^- 

VAR ^ 

X : possible_values; 

LABEL 
100; 

BEGIN 

writeln('You will now enter the experimental data.', chr(lO)); 

100: r 

write ('Please enter the obtained value for x — '); V^ 

readln(x) ; 

if in_range(x) then 

writeln('This value seems possible.') 
else 

begin 

writeln('This value seems suspicious.'); 

GOTO 100; 

end; 
END . 
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Using This Example 

Following is a sample run of the program named goto_example: 
You will now enter the experimental data. 

Please enter the obtained value for x — 35 
This value seems suspicious. 
Please enter the obtained value for x — 17 
This value seems possible. 
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If — Tests one or more conditions and executes one or more statements ac- 
cording to the outcome of tiie tests. 



FORMAT 

You can use if, then, and else in the following two ways: 
if cond then stmnt; {first form} 

if cond then stmnti else stmnt2; {second form} 



Arguments 

cond Any Boolean expression. 

stmnt A simple statement or a compound statement. (Refer to the "Statements" listing 

in this encyclopedia.) Note that stmnt can itself be another if statement. 



DESCRIPTION 

The if and case statements are the two conditional branching statements of Pascal. 

In an if/then statement, if cond evaluates to true, Pascal executes stmnt. If cond is false, Pascal exe- 
cutes the first statement following stmnt. 

In an if/then/else statement, if cond is true, Pascal executes stmnti . However, if cond is false, Pascal 
executes stmnt2. 

You often use an if statement to evaluate multiple conditions. To do so, just remember that a stmnt 
can itself be an if statement. For example, consider the following if statement which evaluates multiple 
conditions: 

IF age < 3 THEN 

price =0.0 
ELSE IF (age >= 3) AND (age <= 6) THEN 

price =1.00 
ELSE IF (age > 6) AND (age <=12) THEN 

price =2.00 
ELSE 

price = 4.00; 

Inexperienced Pascal programmers (and even some of the experienced ones) often forget where to put 
semicolons in an if/then/else statement. Just remember that you never put a semicolon immediately 
prior to an else. 



"And Then" and "Or Else" — Extension 

The if statement of DOMAIN Pascal supports an and then and or else extension to standard Pascal. 
You can use and then and or else wherever you'd use and and or in a cond except that and then and 
or else cannot be contained inside parentheses. 
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When you use and or or, there is no guarantee that Pascal will evaluate the Boolean expressions of a 
cond in the order that you write them. For example, in the following if/then command, Pascal may 
test ( (y DIV X) > 0) before it tests (x <> 0): 

IF (X <> 0) AND ((y DIV x) > 0) 

THEN . . . 

However, using and then or or else guarantees that DOMAIN Pascal evaluates the Boolean expres- 
sions of a cond in the order that you write them. And then and or else also guarantee "short-circuit" 
evaluation; that is, at runtime, the system only evaluates as many expressions as is necessary. For ex- 
ample, if you change and to and then, you guarantee that DOMAIN Pascal checks that x does not 
equal before actually dividing by x: 

IF (X <> 0) AND THEN ( (y DIV x) > 0) 

THEN ... 

And then forces DOMAIN Pascal to evaluate Boolean expressions in textual order until one of them is 
false. On a false, DOMAIN Pascal skips the remaining Boolean expressions. If all of them are true, the 
cond is true. 

Or else forces DOMAIN Pascal to evaluate Boolean expressions in textual order until one of them is 
true. If one of the Boolean expressions is true, DOMAIN Pascal skips over the remaining tests. 

Note that and and or force DOMAIN Pascal to test all Boolean expressions in the cond. Thus, and 
then and or else can be more efficient than and and or in some cases. 

Standard Pascal does allow you to ensure the order of Boolean evaluation in a cond; however, the 
DOMAIN Pascal extension is much easier. For example, compare the standard Pascal code on the left 
with its functional equivalent on the right: 

Standard Pascal DOMAIN Pascal 

IF cl THEN IF Cl AND THEN c2 THEN 

IF c2 THEN si; 

Si; 

NOTE: When using and then or or else, you cannot enclose the conds in parentheses. 
For example, the following if statement causes an error: 

IF ((cl = c2) AND THEN (c3 = c4) ) 
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EXAMPLE 

PROGRAM if_example; 

{This program demonstrates IF/THEN and IF/THEN/ELSE.} 

VAR 

y, age, of_age, root_ratings : integer 16; 

tree : (ficus, palm, poinciana, frangipani, jacaranda) ; 

grade : char; 

BEGIN 

write('Enter an integer — '); readln(y) ; {USAGE 1} 

IF y < THEN 

writeln('Its absolute value equals ', (abs(y)):3); 

writeCEnter an age — '); readln(age) ; {USAGE 2} 

IF age > 18 THEN 

writelnC An adult') 
ELSE 

begin 

of_age := 18 - age; 

writelnC A minor for another ', of_age:l,' years.'); 

end; 

write('Enter a grade — '); readln (grade) ; {USAGE 3} 

IF (grade = 'A') OR (grade = 'B') THEN 

writelnC Good work') 

ELSE IF (grade = 'C') OR (grade = 'D') THEN 

begin 

writelnC Satisfactory work' ) ; 

writelnC Though improvement is indicated.'); (^ 

end v^ 

ELSE IF (grade = 'F') THEN 

writelnC Failing work' ) ; 

writeCEnter the name of a tropical tree — '); readln ( tree ) ; {USAGE 4} 
IF (tree = poinciana) OR (tree = jacaranda) THEN 

begin 

writelnC Blossoms in June and July.'); 

root_ratings := 9; 

end 
ELSE IF tree = palm THEN 

root_ratings := 8 
ELSE 

root_ratings := 2; 

Imagine a pointer variable which may be NIL or valid. If it is NIL, 
you do not want to dereference it, because the compiler generates an 
access violation. It would be wrong to code it in the following way 
because there is no way to be sure which expression the compiler 
will evaluate first: 

IF (ptr <> NIL) AND (ptr" = 100) THEN . . . 
However, coding it the following way ensures the correct order: 
IF (ptr <> NIL) AND THEN (ptr" = 100) THEN . , . 
END. 
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Using This Example 

Following is a sample run of the program named if_example: 

Enter an integer 10 

Its absolute value equals 10 
Enter an age — 13 

A minor for another 5 years . 
Enter a grade — B 

Good work 
Enter the name of a tropical tree — poinciana 

Blossoms in June and July. 



O 



o 



o 
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In — Evaluates an expression to see if it is a member of a specified set. 



FORIVIAT 

exp in setexp {in is a set operator.} 

Arguments 

setexp A set expression. 

exp An expression of the same data type as the elements constituting the base type of 

setexp. 

Operator Returns 

The result of an in operation is always Boolean. 

DESCRiPTiON 

Use in to determine if exp is an element in set setexp. In returns either true or false. 

EXAIVIPLE 

PROGRAM in_example; 

{ This program prompts the user for a word, then counts the number of } 

{ ordinary vowels (a, e, i, o, and u) in the word. } 



VAR 



word 
count_of_vowels 

X 



array [1..20] of char := [* of ' ']; 

integerie := 0; 

integerl6; 



BEGIN 

write('Enter a word — '); 

readln(word) ; 

for X := 1 to 20 do 

if word [X] IN ['a', 'e', 'i', 'o', 'u'] 

then count_of_vowels := count_of_vowels + 1; 
writeln('This word contains ', count_of_vowels: 1, ' ordinary vowels.'); 
END. 



Using This Exampie 

Following is a sample run of the program named in_example: 



Enter a word — computers 

This word contains 3 ordinary vowels. 
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ln_range — Determines whether or not a specified value is within the defined 
integer subrange. (Extension) 



FORIVIAT 
in_range(x) 



{in_range is a function.} 



Argument 



A variable having a scalar (i.e., integer, Boolean, char, enumerated, or subrange) 
data type. For most practical purposes, x must be an enumerated or a subrange 
variable. 



Function Returns 

The in_range function returns a Boolean value. 



o 



DESCRiPTION 

The in_range function returns true if the value of x is within its defined range; otherwise, it returns 
false. The following program fragment demonstrates a possible use of in_range. We want to use 
in_range in this example, because it generates very efficient code: 

TYPE 

small_int = -7.. 7; 
VAR 

X : integerlG; 
BEGIN 

readln(x) ; 

if IN_RANGE(small_int(x)) 
then . . . 
else . . . 
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In_range 

EXAMPLE 

PROGRAM in_range_exainple ; 

TYPE 

possible_temperature_range = 48.. 97; 

VAR 

air_temp : possible_temperature_range; 
stop : boolean; 



BEGIN 
repeat 

write('Enter the current air temp, (in deg. fahrenheit) — '); 
readln(air_temp) ; 
if not IN_RANGE(air_temp) then 
begin 

writeln('This temperature is out of the historical range.'); 
writeln; 
stop := false; 
end 
else begin 

writeln('This value is within the historical range.'); 
stop := true; 
end; 
until stop; 
END. 



Using This Example 

Following is a sample ex'cution of the program named in_range_example: 

Enter the current air temp, (in deg. fahrenheit) — 100 
This temperature is out of the historical range. 

Enter the current air temp, (in deg. fahrenheit) — 47 
This temperature is out of the historical range. 

Enter the current air temp, (in deg. fahrenheit) — 52 
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Lastof — Returns the last possible value of a type or a variable. (Extension) 



FORMAT 

lastof (x) (lastof is a function.} 

Argument 

X Either a variable or the name of a data type. The data type can be a predeclared 

DOMAIN Pascal data type, or it can be a user-defined data type. X cannot be a 
record, file, or pointer type. 

Function Returns 

The lastof function returns a value having the same data type as x. 

DESCRIPTION 

The lastof function returns the final possible value of x according to the following rules: 

Data Type Lastof Returns 

integer or integerl6 32767 

integer32 2147483647 

char A symbol indicating an unprintable 

character; however, 

ORD( LASTOF (char)) returns 255. 

boolean True. 

enumerated The last (right-most) identifier in the 

data type declaration. 
array The upper bound of the subrange that 

defines the array's size. 

The lastof function is particularly useful for finding the last value in an enumerated type. 

EXAMPLE 

See the example in the firstof listing earlier in this encyclopedia. 
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Ln — Calculates the natural logarithm of a specified number. 



FORMAT 

In(number) {In is a function.} 

Argument 

number Any real or integer expression that evaluates to a positive number. 

Function Returns 

The In function always returns a real value (even if nunnber is an integer). ( 

DESCRIPTION 

The In function returns the natural logarithm of number. Refer to the exp listing earlier in this ency- 
clopedia for a practical definition involving In. 

EXAMPLE ^^ 

V. 

PROGRAM ln_example; 

{ Each radioactive isotope has a unique K constant.} 

{ This program uses LN and empirical data to calculate the k constant.} 

VAR 

start ing_quantity, ending_quantity : real; 

elapsed_time, k : real; 

BEGIN 

write('Enter the quantity at time zero — '); : 

readln(starting_quantity) ; ^-- 

write('Enter the elapsed time (t) — '); 

readln(elapsed_time) ; 

write('Enter the quantity at time (t) — '); 

readln(ending_quantity) ; 

k := LN(starting_quantity/ending_quantity) * (1.0 / elapsed_time) ; 

writeln('The k constant for this radioactive element is ', k) ; 
END. 



Using This Example 

Following is a sample run of the program named ln_example: 

Enter the quantity at time zero — 1230 

Enter the elapsed time (t) — 47 

Enter the quantity at time t — 753 

The k constant for this radioactive element is 0.010 
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Lshft — Shifts the bits in an integer a specified number of bit positions to the 
left. (Extension) 



FORIVIAT 

lshft(num, sh) 



{lshft is a function.} 



Arguments 

num, sin 



Integer expressions. 



o 



Function Returns 

The lshft function returns an integer value. 



o 



DESCRIPTION 

The lshft function shifts the bits in num to the left sli places. Lshft does not wrap bits around from the 
left edge to the right; instead, lshft shifts zeros in on the right. For example, consider the following re- 
sults: 



VAR 



i, n : INTEGER16; 



BEGIN 

i := 2000; 
LSFHT(i, 1) 
LSHFT(i, 3) 
LSHFT(i, 7) 



{ 2#0000011111010000 

{ 2#0000111110100000 

{ 2#0011111010000000 

{ 2#1110100000000000 



10#+2000 } 
10#+4000 } 
10#+16000 } 
10#-6144 } 



Results are unpredictable if sh is negative. 
Compare lshft to rshft and arshft. 
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Lshft 

EXAMPLE 

PROGRAM lshft_exainple; 

VAR 

unshifted_integer, shif ted_integer, shift_left, x : integerl6; 

choice : . . 15; 

drink_info : array[0..6] of integerl6 := [* of 0]; 

BEGIN 

{In the following subroutine, LSHFT acts as a multiplier according to the} 
{equation LSHFT (num, sh) = num * (2 to the sh power). Beware of overflow } 
{when you use LSHFT for this purpose. } 

unshifted_integer := 15; {15 is 0000000000001111 in binary} 
shift_left := 3; 

shifted_integer := LSHFT (unshifted_integer, shift_left) ; 
writeln(unshifted_integer : 5 , ' times 2 to the ', shift_left : 1, 
' power = ', shifted_integer:l) ; 

{The result will be 120.} 

{120 is 0000000001111000 in binary.} 



{You can also use LSHFT to pack information more effectively. For 
{example, suppose you asked 24 people to name their favorite soft 
{drink from a list of 16 possibilities. Since we can represent 16 
{possibilities in 4 bits, we can store 4 people's responses in one 
{16-bit word in the following manner: 

{ 

{Bit #0 3 4 7 8 11 12 15 

{ 

{ I Response 1 | Response 2 | Response 3 | Response 4 
{ 

{ 

{Therefore, we will only need six 16-bit words to store the data 
{rather than 24 16-bit words. The following code uses the LSHFT 
{function to accomplish this data reduction, 
writeln; 

for X := to 23 DO 
BEGIN 

write('Enter the preference (0-15) of client ', 

x:l, ' ~ '); 
readln (choice) ; 
drink_info[x div 4] := drink_info[x div 4] ! 

LSHFT(choice, (4 * (x mod 4))); 
writeln (DRINK_INFO[x DIV 4]); 
END; 
{You can also achieve this sort of packing with packed records. 



END. 



Using This Example 

This program is available on-line and is named lshft_example. 
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Max — Returns the larger of two expressions. (Extension) 
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FORIVIAT 

max(exp1,exp2) {max is a function.} 

Arguments 

exp1 , exp2 Any valid expression. 

DESCRIPTION 

DOMAIN Pascal's max function returns the larger of the two input expressions. Expl and exp2 must 
be the same type or must be convertable to the same type by Pascal's default conversion rules (for ex- 
ample, integer converted to a real). 

If expl and exp2 are unsigned scalars or pointers, DOMAIN Pascal performs an unsigned comparison. 
(The scalar data types are integers. Boolean, character, and enumerated.) If they are real, single, or 
double, a floating-point comparison is done, while if they are signed integers, DOMAIN Pascal per- 
forms a signed comparison. 

See also min. 



o 



o 
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Max 

EXAMPLE 

program max example; 



var 



i : integerlG; 

X , y , newx , newy , high , newhigh : real ; 



begin 



This program allows the user to calculate interest yields on 
amounts deposited in two savings accounts that have different 
interest rates. The first pays 6.55 Annual Percentage Rate (APR), 
and the second pays 8.75% APR. After figuring how much would be 
in each account after five years, the program then rolls the money 
in the account with the highest balance over into a Certificate 
of Deposit account which pays 11% APR, and then the interest it 
would earn in five more years is calculated. 



write ('Enter the initial deposit for account 1: '); 
readln (x) ; 

write ('Enter the initial deposit for account 2: '); 
readln (y) ; 



v.. 



{ Figure interest for first } 
{ five years on both accounts.} 



newx : = x ; 
newy := y; 

for i := 1 to 5 do 
begin 
X : = newx ; 

newx := X + (x * 0.0655); 
y : = newy ; 

newy := y + (y * 0.0875); 
end; 



writeln; 

writeln (' Account 1 balance after 5 years at 6.55%: ', newx:7:2); 

writeln (' Account 2 balance after 5 years at 8.75%: ', newy:7:2); 



high := MAX ( newx, newy ) ; 



{ Find the maximum interest yield.} 



newhigh := high; 
for i := 1 to 5 do 

begin 

high := newhigh; 

newhigh := high + (high * 0.11); 

end; 

writeln; 

writeln (' Highest account after 5 more years in CDs at 11%: ', newhigh:7: 2) ; 

end. 
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Using This Example 

Following is a sample run of the program named niax_example: 

Enter the initial deposit for account 1: 1000 
Enter the initial deposit for account 2: 900 

Account 1 balance after 5 years at 6.55%: 1373.31 
Account 2 balance after 5 years at 8.75%: 1368.95 

Highest account after 5 more years in CDs at 11%: 2314.10 
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Min — Returns the smaller of two expressions. (Extension) 



FORIVIAT 

min(exp1,exp2) {min is a function.} 

Arguments 

exp1 , exp2 Any valid expression. 

DESCRIPTION 

DOMAIN Pascal's min function returns the smaller of the two input operands. Exp1 and exp2 must be 
the same type or must be convertable to the same type by Pascal's default conversion rules (for exam- 
ple, integer converted to a real). 

If expl and exp2 are unsigned scalars or pointers, DOMAIN Pascal performs an unsigned comparison. 
(The scalar data types are integers, Boolean, character, and enumerated.) If they are real, single, or 
double, a floating-point comparison is done, while if they are signed integers, DOMAIN Pascal per- 
forms a signed comparison. 

See also max. 
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EXAMPLE 

program min_example; 

var 

storenum : integer; 

lowprice, x, y, newpricel, newpric62 : real; 

begin 

{ The program finds the lowest discounted price for an item that two } 
{ stores sell. The stores have different regular prices and are } 
{ featuring different discount rates: 18% at the first, and 15% at } 
{ the second. } 

write ('Enter the regular price at the first store: ') ; 
readln (x) ; 

write ('Enter the regular price at the second store: '); 
readln (y) ; 

newpricel := x - (x * 0.18); 
newprice2 := y - (y * 0.15); 

lowprice := MIN(newpricel,newprice2) ; 
if lowprice = newpricel then 

storenum := 1 
else 

storenum : = 2 ; 

write ('The best discounted price is at store number ', storenum:!); 

writeln (' and it is ', lowprice: 6 : 2) ; 

end. 



Using This Example 

Following is a sample run of the program named min_example: 

Enter the regular price at the first store: 1599.99 

Enter the regular price at the second store: 1515.15 

The best discounted price is at store number 2 and it is 1287.8! 



4-91 Code 



Mod 



Mod — Calculates the remainder upon division of two integers. 



FORIVIAT 

dl mod d2 {mod is an operator.} 

Arguments 

d1 , d2 Any integer expressions. 

Operator Returns 

The mod operator returns an integer value. 

DESCRIPTION 

DOMAIN Pascal's mod operator works like standard Pascal's mod operator when d1 is positive. When 
d1 is negative and you compile without the -iso switch, DOMAIN Pascal's mod operator works in a 
nonstandard manner. 

When dl is Positive 

The expression (dl MOD d2) produces the remainder of d1 divided by 62. Therefore, the expression 
(dl MOD d2) always evaluates to an integer from up to, but not including, |d2|. For example, con- 
sider the following results: 



9 


MOD 


3 


is 


equal 


to 





10 


MOD 


3 


is 


equal 


to 


1 


11 


MOD 


3 


is 


equal 


to 


2 


12 


MOD 


3 


is 


equal 


to 





13 


MOD 


3 


is 


equal 


to 


1 



13 MOD -3 is equal to 1 

(To find the quotient (i.e., nonfractional) portion of the division, use the div operator described ear- 
lier in this encyclopedia.) 



L 
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When d1 is Negative 

If dl is negative, then (dl MOD d2) equals 
-1 * remainder of I dl I divided by I d2 



Mod 



For example, consider the following results: 

-9 MOD -3 is equal to 
-10 MOD -3 is equal to -1 
-11 MOD -3 is equal to -2 
-12 MOD -3 is equal to 
-13 MOD -3 is equal to -1 



-9 MOD 3 is equal to 

-10 MOD 3 is equal to -1 

-11 MOD 3 is equal to -2 

-12 MOD 3 is equal to 

-13 MOD 3 is equal to -1 



o 



Compiiing Witii the -iso Switch 

If you compile with the -iso switch (described in Chapter 6), mod follows the standard Pascal rules. 
That is, mod returns a value result such that: 

result := dl - (dl DIV d2) * d2 



Since a negative modulus is illegal under standard Pascal rules, if result is negative, then: 
result := result + d2 



o 



EXAIVIPLE 

PROGRAM mod_example; 

{This program uses the MOD function to find the coming leap years.} 

CONST 

cycle = 4; 



VAR 



remainder, year : integerlG; 



BEGIN 

for year := 1985 to 1999 do 
begin 

remainder := year MOD cycle; 
if remainder =0 

then writeln(year :4, ' is a leap year'); 
end; 
END. 



Using This Example 

If you execute the sample program named mod_example, you get the following output: 

1988 is a leap year 
1992 is a leap year 
1996 is a leap year 
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New — Allocates space for storing a dynamic variable. 



FORMAT 
new(p) 
new(p, tag1 , . . . tagN) 



{Short form. New is a procedure.} 
{Long form.} 



Arguments 

tag 



An input argument that names one or more constants. Tag is valid only if p'" is a 
record. The maximum number of tags is the number of tag fields in the record to 
which p points. 

A pointer variable used for input and output. Pascal creates a dynamic variable of 
the type to which p points. After allocating this variable, Pascal returns the ad- 
dress of the newly allocated dynamic variable into p. The contents of the address 
pointed to is undefined. If there was insufficient address space or disk space re- 
maining to satisfy the request for dynamic memory, then DOMAIN Pascal returns 
the value nil in p. 



DESCRIPTION 

New causes Pascal to allocate enough space for storing one occurrence of a dynamic variable. You use 
new to create dynamic space and dispose (described earlier in this encyclopedia) to deallocate the dy- 
namic space. 

You can use the short form of new to allocate any kind of dynamic variable. The long form of new is 
only useful for allocating dynamic variant records. 



r 



The Short Form 

Consider the following record declaration: 



TYPE 

employeepointer = 
employee = record 



^employee; 



f irst_name 
last_name 
next_emp 
end; 



array[1..10] of char; 
array [1.. 14] of char; 
employeepointer ; 



VAR 



current_employee : employeepointer; 



If you want to store employee records dynamically, then you must call NEW(current_employee) for 
every occurrence of an employee. To allocate space for 100 employees, call NEW(current_em- 
ployee) 100 times. You can assign values to an employee record only after Pascal has allocated space 
for an occurrence. 



V 
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New 
The Long Form 

Pascal uses tagL.fagA/ to help determine the amount of space to allocate for a variant record. 
Tag1 ..tagN corresponds to the tag fields of the variant record. For example, consider the type declara- 
tion for the following variant record: 

TYPE 

emp_stat = (exempt, nonexempt) ; 
workerpointer = "worker; 
worker = record 



f irst_name 
last_name 
next emp 



array [1.. 10] of char; 
array[1..14] of char; 
workerpointer ; 



integer 16) ; 

single; 

array [1.. 20] of char) 



CASE emp_stat OF 

exempt : (salary 
nonexempt : (wages 
plant 
end; 

VAR 

current_worker : workerpointer; 

Because worker contains a tag field, you have the option of passing the value of a constant to new; 
for example: 

NEW ( curr ent_worker , exempt ) 

Since tagi is exempt, when DOMAIN Pascal allocates space for one worker record, it allocates two 
bytes for the variant portion (since integerl6 takes up only two bytes). If tagi had been nonexempt , 
DOMAIN Pascal would have allocated the space necessary (24 bytes) to hold it. 

Note that the number of constants you pass to new must be less than or equal to the number of tag 
fields in the record declaration. 

For machines with a larger address space (DNx60 machines, DN3000, etc.), you can access that larger 
amount of space by performing the following two steps: 

1 . Use new to allocate a large amount of memory (such as a megabyte) at the beginning of the 
program's execution. 

2. Immediately after allocating the memory, use dispose to deallocate it. 

These steps cause the operating system to increase the number of memory pages it allocates to your 
program. You should only use this technique if it is possible that your program may run out of address 
space. 
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EXAMPLE 

Program build_a_linked_list; 

{ The following example uses NEW and DISPOSE to create and disassemble a } 
{ linked list. For a description of the theory of linked lists, consult } 
{ a Pascal tutorial. } 

TYPE 

studentpointer = " student; 
student = record 

name : array[1..30] of char; 

age : integerl6 ; 

next_student : studentpointer; 
end; 



VAR 




base 


: studentpointer; 


a_name 


: array [1.. 30] of char; 


an_age 


: integerl6; 


option 


: char ; 


done 


: boolean; 



Procedure print_list; { Print the linked list in order. } 
VAR 

ns : studentpointer; 
BEGIN 

ns := base; 
writeln; 

while ns <> NIL do /^ 

with NS" do V_ 

begin 

writeln(name, ' - ', age); 
ns := next_student ; 
end; 
END; 

Procedure Enter_data; 

VAR ^- 

ns , previous : studentpointer; ( 

BEGIN ^- 

base := nil; 

repeat 

writeCEnter the name of a student (or end to stop) — '); 
read In ( a_name ) ; 
if a_name 'end' then 
begin 

NEW(ns) ; { Allocate space for a new occurrence of a student.} 

writeCEnter his or her age — '); readln(an_age) ; 

if base = nil 

then base := ns {Set base to first record.} 

else previous" .next_student := ns; {Add record to end of list} 

{ Initialize fields of new record. } 
ns'.name := a_name; 

Code 4-96 



New 



o 



o 



ns " . age : = an_age ; 

ns" .next_student := nil; 

previous := ns; { Save pointer to this new student.} 
end 
until a_name = 'end'; 
END; 

Procedure delete_a_student ; 
VAR 

ns, previous : studentpointer ; 
BEGIN 

previous := base; 

ns := base; 

write ('What is the name of the student you want to delete? — '); 
readln(a_name) ; 

while ns <> nil do 
begin 

if ns ".name = a_name then {Delete record.} 
begin 

if ns = base then 

base := ns" .next_student 
else 

previous" .next_student := ns" .next_student ; 
DISPOSE (ns) ; 
exit ; 
end 
else 

begin 

previous := ns; 
ns := ns" .next_student ; 
end; {if} 
end; {while} 
END; {delete_a_student} 

BEGIN {main} 
base := nil; 
enter_data; 
print_list ; 

repeat 

if base = nil then return; 

write ('Do you want to delete a student from the list? (y or n) — '); 
readln(option) ; 

done := not (option in ['y', 'Y']); 
if not done then 
begin • 

delete_a_student ; 
print_list ; 
end 
until done; 
END. 
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Using This Example 

Following is a sample run of the program named build_a_linked_list: 

Enter the name of a student (or end to stop) — Kerry 

Enter his or her age — 28 

Enter the name of a student (or end to stop) — Jan 

Enter his or her age — 27 

Enter the name of a student (or end to stop) — Lance 

Enter his or her age — 29 

Enter the name of a student (or end to stop) — end 

Kerry - 28 

Jan - 27 

Lance - 29 

Do you want to delete a student from the list? (y or n) — y 

What is the name of the student you want to delete? — Jan 

Kerry - 28 

Lance - 29 

Do you want to delete a student from the list? (y or n) — n 
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Next — Jump to the next iteration of a For, Wliile, or Repeat loop. (Extension) 



FORIVIAT 

Next is a statement that neither takes arguments nor returns values. 

DESCRIPTION 

You use next to skip over the current iteration of a loop. You can only use next within a for, while, or 
repeat loop. If next appears elsewhere in a program, DOMAIN Pascal issues an error. Next tells 
DOMAIN Pascal to ignore the remainder of the statements within the body of the loop for one itera- 
tion. For instance, consider the following example: 

FOR X := 5 to 35 do 
begin 

if (x MOD 10) = then NEXT; 

end; 

When X is 10, 20, or 30, DOMAIN Pascal ignores the statements following the next. You can use a 
goto statement instead of a next statement. For example, you can rewrite the preceding example to 
look like the following: 

FOR X := 5 to 35 do 
begin 

if (X MOD 10) = then GOTO 100; 

100 : end ; 
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EXAMPLE 

PROGRAM next_example; 

{ This program counts the occurrences of the digits through 9 in a line } 

{ of integers and real numbers. } 

CONST 

blank = ' ' ; 
decimal_point = ' . ' ; 

VAR 

dig : char; 

count_digits : array [48. . 57] of integerlB := [* of 0]; 

X : integerl6; 

BEGIN 

writeln('Enter a line of integers and real numbers:'); 
repeat 

read(dig) ; 

if ((dig = blank) or (dig = decimal_point) ) then NEXT; 

write(dig, ' ' ) ; 

count_digits[ord(dig) ] := count_digits [ord(dig) ] + 1; 
until eoln; 
writeln; 

for X := 48 to 57 do 

writeln ( count_digits [x] : 2, ' of the digits were ', chr(x):l, 's'); 
END. 



Using This Example ^ 

Following is a sample run of the program named next_example: 

Enter a line of integers and/or real numbers. 

1741374.13 33 821 

17413741338 

of the digits were Os 
4 of the digits were Is 

1 of the digits were 2s 
4 of the digits were 3s 
3 of the digits were 4s 
of the digits were 5s 

of the digits were 6s 

2 of the digits were 7s 

1 of the digits were 8s 
of the digits were 9s 



V_ 
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Nil — A special pointer value that points to nothing. 
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FORMAT 

Nil is a reserved word. You can only use it in expressions. Nil is a pointer value; therefore, you must 
assign it to or compare it to a pointer variable. Nil is guaranteed never to point to an object. 



DESCRIPTION 

Use nil when you must assign a value to a pointer, but you don't know what that value should be. For 
example, when creating a linked list, you can set the last record in the list to point to nil. Then, when 
walking through the list, you can easily find the end of the list by checking for nil. 



EXAMPLE 

For a sample program that uses nil, refer to the listing for nevs^ earlier in this chapter. 
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Not — Returns true if an expression evaluates to false. 



FORMAT 

not b {not is a unary operator.} 

Arguments 

b Any Boolean expression. 

Operator Returns 

The result of a not operation is always a Boolean value. 

DESCRIPTION 

If b evaluates to false, then not b evaluates to true. If b evaluates to true, then not b evaluates to false. 

Note that you can put and or or immediately before not. Note the order of precedence in an expres- 
sion like the following: 

a AND NOT b actually means a AND (NOT b) 

Another potentially confusing expression is the following: 

NOT a AND b actually means (NOT a) AND b 

Please refer to the order of precedence rules at the beginning of this chapter. 

EXAMPLE 

PROGRAM not_example; 
VAR 

pet_lover, timid : boolean; 

BEGIN 

writeln( 'Career aptitude test.', chr(lO)); 

write('You like pets (true or false) — '); readln(pet_lover) ; 

write('You are timid (true or false) — '); readln(timid) ; 

if pet_lover and NOT timid 

then writeln('Have you considered becoming a lion tamer?') 
else writeln('Plastics. .. there" s a great future in plastics.'); 
END. 

Using This Example 

This program is available on-line and is named not_example. 
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Odd — Tests whether the specified integer is an odd number. 



FORIVIAT 

odd(i) {odd is a function.} 

Argument 

i Any integer expression. 

Function Returns 

The odd function returns a Boolean value. 

DESCRIPTiON 

Odd returns true if i is an odd integer and false if i is an even integer. 

EXAiVlPLE 

PROGRAM odd_example; 

VAR 

i : integer; 

BEGIN 

writeC'Enter an integer — '); 
readln(i) ; 

if ODD(i) 

then writeln(i:l, ' is an odd number.') 
else writeln(i:l, ' is an even number.'); 
END. 

Using This Example 

Following is a sample run of the program named odd_example: 

Enter an integer — 14 
14 is an even number. 
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Of — Refer to Case earlier in tliis encyclopedia. 
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Open — Opens a file so that you can eventually read from or write to it. (Exten- 
sion) 



FORMAT 

open(file_variabIe, pathname, file_history, errorjstatus, bufferjsize) ; {open is a procedure.} 

Arguments 

file_variable A variable having the text or file data type. 

pathname The name of the file that you want to open. Pathname is a string constant or 

string variable, that you specify in any of the following five ways: 

o Enter a DOMAIN pathname as defined in Getting Started With Your 
DOMAIN System. 

o Enter a string in the form "n', where n is an integer from 1 to 9. N corre- 
sponds to the ordinal value of the arguments that the user passes to the 
program when he or she executes or debugs the program. For example, 
suppose you compile DOMAIN Pascal source code to create executable 
object file sample.bin. You can pass the two arguments xxx and yyy 
by executing the program as follows: 

v. / $ sample.bin xxx yyy 

The preceding command line causes DOMAIN Pascal to assign xxx to 
'n' and yyy to '^2'. 

• Enter a string in the form '* prompt-string'. At runtime, DOMAIN Pascal 
prints the prompt-string at standard output, and then reads the user's re- 
sponse from standard input. (The response should be the name of the file 
to be opened.) The prompt-string can contain any printable character 
except blanks; DOMAIN Pascal stops printing at the first blank it en- 
counters. An asterisk by itself tells DOMAIN Pascal to read the response 
from standard input without printing a prompt at standard output. 

• A string in the form '-STDIN' or '-STDOUT'. These strings correspond 
to the streams that the operating system opens automatically. However, 
specifying one of these strings does not cause an error. (See Chapter 8 
for an explanation of streams.) 

• A variable or constant containing any of the preceding items. 

file_history A variable or string that tells the open procedure how to open the file. The vari- 

able or string must have one of the following three values: 

• 'NEW — If the file exists, DOMAIN Pascal reports an error. If the file 
does not exist, DOMAIN Pascal creates the file and then opens it. 

• 'OLD' — If the file exists, DOMAIN Pascal opens it. If the file does not 
exist, DOMAIN Pascal reports an error. 
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• 'UNKNOWN* ~ If the file exists, DOMAIN Pascal opens it. If the file 
does not exist, DOMAIN Pascal creates the file and then opens it. 

Remember to enclose the file_history within apostrophes (e.g., 'NEW'). 

errorjstatus An optional argument. If you specify an errorjstatus, it must have an integer32 

data type. At runtime, DOMAIN Pascal returns a hexadecimal number into 
errorjstatus which has the following meaning: 

— no error or warning occurred, 
greater than — an error occurred, 
less than — a warning occurred. 



buffer size 



Your program is responsible for handling any errors. We detail error handling in 
Chapter 9. 

An optional argument that may only be specified for files of type text. 
Buffer _size must be at least as long as the longest line in the file being read; if it is 
shorter, the excess characters in a line are truncated. If the file is open for writing 
only, you don't need to specify a large buffer_size. No data is lost even if a line 
being written is longer than bufferjsize. The default size is 256 bjlies. 



DESCRIPTION 

Before you can read from or write to a file, you must first open it for I/O operations. To open a perma- 
nent file, you must use the open procedure. To open a temporary file, use the rewrite procedure with- 
out using an open procedure. 

After you've opened a file, you then specify whether it is available for reading (by calling reset) or for 
writing (by calling rewrite) . Note that you do not need to open the standard input (input) and stan- 
dard output (output) files before attempting to read from or write to them. They are always open. 

When your program terminates, the operating system automatically closes all opened files; however, 
please refer to the description of the close procedure earlier in this chapter. 

For a complete overview of DOMAIN I/O, see Chapter 8. 



V 



EXAMPLE 

Program open_example ; 



This program uses a variety of techniques to open three files. 
In order for it to work properly, you must pass the pathname of a 
file as the first argument on the execution or debug command line. 
For example, if you compile this program to create open_example.bin, 
then you could invoke the program with the following command: 
$ open_example.bin //arnie/nouveau/comps 



%NOLIST; 

%INCLUDE '/sys/ins/base. ins. pas' ; 

%INCLUDE '/sys/ins/error. ins. pas' ; 

%LIST; 

CONST 

name_of_file = 'annabel_lee' ; 
files = '*filename — '; 
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VAR 

poem, paragraph, stanza : text; 
statrec : status_$t; 

BEGIN 

{ Open an existing file.} 

OPEN(poem, name_of_file, 'OLD', statrec. all) ; 
{ If there was no error on open, then specify that the file be } 
{ open for reading. } 

if statrec. all = 
then reset (poem) 
else writelnCDiff iculty opening ', naifle_of_f ile) ; 



{ Open a new file. The pathname of the new file will be the first } 
{ argument that you pass on the execution or debug command line. } 

OPEN (paragraph, '"1', 'NEW, statrec. all) ; 
{ If there was no error on open, then specify that the file be open} 
{ for writing. If there was an error, print the error code. } 
if statrec. all = status_$ok 
then rewrite (paragraph) 
else writelnCGot error code ', statrec. all, ' on open.'); 



{ Open a file that may or may not exist. Prompt user for name of } 

{ file at runtime. } 

OPEN(stanza, fileS, 'UNKNOWN', statrec .all) ; 
{ A slightly more sophisticated method of error reporting is to use } 
{ the system call ERROR_$PRINT to print the error message. } 

{ NOTE: In order to call ERROR_$PRINT, you must specify both } 

{ /sys/ins/base. ins.pas and /sys/ins/error . ins.pas as %INCLUDE files.} 

if statrec. all = status_$ok 
then rewrite (stanza) 
else ERROR_$PRINT( statrec) ; 
END. 



Using This Example 

This program is available on-line and is named open_example. 
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Or — Calculates the logical or of two Boolean arguments. 



FORMAT 
X or y 



{or is an operator.} 



Arguments 

X, y Any Boolean expressions. 

Operator Returns 

The result of an or operation is always a Boolean value. 

DESCRIPTION 

Use or to find the logical or of expressions x and y. Here is the truth table for or: 



X 


y 


Result 


true 


true 


true 


true 


false 


true 


false 


true 


true 


false 


false 


false 



Compare or to and and not (which are described elsewhere in this encyclopedia) . You should also see 
the description of or else, which is described in the if listing earlier in this encyclopedia. 

NOTE: Some programmers confuse or with the exclamation point (!) operator. ! is a bit 
operator; it causes DOMAIN Pascal to perform a logical or on all the bits in its 
two arguments. For example, compare the following results: 

(true OR false) is equal to true 
(75 ! 15) is equal to 79 

Refer to the "Bit Operators" listing earlier in this encyclopedia. 
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EXAMPLE 

PROGRAM or_example; 

VAR 

tall, good_jumper , good_athlete : boolean; 

BEGIN 

writeln( 'Career aptitude test.', chr(lO)); 

write('You are taller than 1.95 meters (true or false) — '); readln(tall) 
writeCYou can jump high (true or false) — '); readln(good_jumper) ; 
writeCYou are athletic (true or false) — '); readln(good_athlete) ; 

if (tall OR good_jumper) AND good_athlete 

then writeln(chr(10) , 'Have you considered playing pro basketball.') 

else writeln(chr (10) , 'Computers are a stable field.'); 
END. 



Using This Example 

This program is available on-line and is named or_example. 
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Ord — Returns the ordinal value of a specified integer, Boolean, char, or enu- 
merated expression. r 



FORMAT 

ord(x) {ord is a function.} 



Argument 



Any scalar (i.e., integer, Boolean, char, or enumerated) expression. 



Function Returns 

The ord function returns an integer value. 

DESCRIPTION 

The ord function returns the ordinal value of x according to the following rules: 

Data Type of x Ord Returns 

Integer Numerical value of x. 

Boolean if x is false and 1 if x is true. 

Char x's ASCII value. Appendix B contains 

an ASCII table. 

Enumerated An integer representing x's position 

within the enumeration declaration. 
For instance, in program ord_example 
below, ORD (rice) returns 0, 
ORD(tofu) returns 1, and so on up 
until ORD(tamari) , which returns 4. 

Note that the chr function is the inverse of ord. 
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EXAMPLE 

PROGRAM ord_example; 

TYPE 

macro = (rice, tofu, seaweed, miso, tamari) ; 

VAR 

c : char ; 
e : macro; 

BEGIN 

c := 'd' ; 

WRITELNCThe ordinal value of ', c, ' is ', 0RD(c):3); 

e : = seaweed; 

WRITELNCThe ordinal value of ', e:7, ' is ', ORD(e):l); 
END. 



Using This Example 

If you execute the sample program named ord_example, you get the following output: 

The ordinal value of d is 100 
The ordinal value of SEAWEED is 2 
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Pack — Copies an unpacked array to a packed array. 



FORMAT 

pack(unpacked_array, index, packed_array) {pack is a procedure.} 

Arguments 

unpacked_array An array that has been defined without the keyword packed. 

index A variable that is the same type as the array bounds (integer, boolean, char, or 

enumerated) of unpacked_array. Index designates the array element in un- 
packed_array from which pack should begin copying. 

packed_array An array that has been defined using the keyword packed. 

DESCRIPTION 

Pack copies an unpacked array to a packed one. However, data access with unpacked arrays generally 
is faster since data elements are always aligned on word boundaries. 

Unpacked_array and packed_array must be of the same type, and for every element in pacl<ed_array, /^ 

there must be an element in unpacked_array. That is, if you have the following type definitions v^ 

TYPE 

X : array [i..j] of single; 

y : packed array [m. .n] of single; 

the subscripts must meet these requirements: 

j - index >= n - m {"index" as set in the call to pack} 

For example, it is legal to use pack on two arrays defined like this: 

TYPE 

big_array : array [1 . .100] of integer; 

small_array : packed array [1.. 10] of integer; 
VAR 

grande : big_array; 

petite : small_array; 

You use index to indicate the array element in unpacked_array from which pack should begin copy- 
ing. For instance, given the previous variable declarations and assuming variable i is an integer, this 
fragment 

i := 1; 

pack(grande, i, petite); 

tells pack to begin copying at grande [1] . Pack keeps copying until it reaches the highest index value 
that petite can take — which in this case is 10. The remaining elements in grande are not copied. 
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Index can take a value outside of packed_array's defined subscripts. That is, if in the example above, 
i equals 50, pack copies these values this way: 

petite [1] := grande[50] ; 
petite [2] := grande[51]; 



petite [10] := grande[59]; 

See the listing for unpack later in this encyclopedia. 

EXAMPLE 

PROGRAM pack_exaniple; 

TYPE 

uarray = array [1.. 50] of integerl6; 
parray = packed array [1.. 10] of integerl6; 



VAR 



full_range 
sub_range 
i, J 



uarray; 
parray; 
integerl6; 



BEGIN 

for i := 1 to 50 do 

full_range[i] := i; 

3 := 20; 

PACK(full_range, j, sub_range) ; 

writeln ('The packed array now contains: '); 
for i := 1 to 10 do 

writeln ( ' sub_range [ ' , i:2, '] = ', sub_range[i] :2) ; 

END. 



Using This Example 

If you execute the sample program named pack_exainple, you get the following output: 



The packed array now contains : 

sub_range[ 1] = 20 

sub_range[ 2] = 21 

sub_range[ 3] = 22 

sub_range[ 4] =23 

sub_range[ 5] = 24 

sub_range[ 6] = 25 

sub_range[ 7] =26 

sub_range[ 8] = 27 

sub_range[ 9] =28 

sub_range[10] = 29 
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Page — Insert a formfeed (page advance) into a file. 



FORIVIAT 
page(0 



{page is a procedure.} 



Argument 

f 



A text variable. F is optional. If you do not specify f, page assumes that the file is 
standard output (output). 



DESCRIPTION 

Use the page procedure to insert a formfeed (ASCII character 12) into the file specified by f. Page is 
useful for formatting text that will be printed or for text that meets fbced-length window dimensions. If 
you print the file on a line printer, the printer advances to the next page when it encounters the 
formfeed. 

Before calling page, you must open the file named in f for writing. See Chapter 8 for a description of 
opening files. 
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EXAMPLE 

PROGRAM page_example; 

{This program demonstrates the PAGE procedure.} 

CONST 

lines_in_a_page = 54; {Our printer prints 54 lines to a page.} 



VAR 



information 
statint 

X 



text; 

integer32; 

integerl6; 



BEGIN 



{ Create a file and open it for writing; exit on error. } 
open (information, 'square_root_table' , 'NEW, statint); 
if statint = then 

rewrite ( information) 
else 

begin 

writeln('Pascal reports error', statint, ' on OPEN.'); 

return; 

end; 

{Print the square roots from 1 to 200, inserting } 
{formfeeds where needed. } 

for X := 1 to 200 do 
begin 

writeln( information, 'The square root of ', x:3, ' is ', sqrt(x)); 
if ((X mod lines_in_a_page) = 0) then 

PAGE (information) ; 
end; 

END. 



Using This Example 

This program is available on-line and is named page_example. 
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Pointer Operations 



Chapter 3 explains how to declare pointer types. Here, we describe how to use pointers in the action 
part of your program. 



DESCRIPTION 

You can do the following things with a pointer variable: 

• Use the addr function to assign the virtual address of a variable to the pointer variable. 

• Compare or assign the value of one pointer variable to another compatible pointer variable. 

• De-reference a pointer variable. De-referencing means that you find the contents of the vari- 
able to which the pointer variable was pointing. 

The following program fragment does all three things: 
Program test; 

TYPE 

pi = "integerlB; 

VAR 

plquart, p2quart : pi; 

quartl, quart2 : integerl6 := 5; 



BEGIN 

plquart 
p2quart 
quart 2 

END. 



= addr (quartl) ; 
= plquart; 
= p2quart" ; 



Manipulating Virtual Addresses — Extension 

DOMAIN Pascal supports type transfer functions that are quite useful in manipulating virtual ad- 
dresses. For example, you cannot directly write a pointer value to a text file; however, you can use a 
type transfer function to transfer the address to an integer32 value (which can be written) . For exam- 
ple, compare the right and wrong ways to write the virtual address of quartl to output: 

writeln (plquart) ; {wrong} 

writeln(integer32 (plquart) ) ; {right} 
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Invoking Procedure and Function Pointers — Extension 

You de-reference a procedure or function pointer like any other pointer; that is, with the up-arrow 
(^). In this way, functions can return pointers to other functions; for example: 

TYPE 

retbool = "function : boolean; 
retfunptr = "function : retbool; 

VAR 

xp : retbool; 
rf : retfunptr; 
flag : boolean; 

FUNCTION myfunc; retbool; 



rf := ADDR ( myfunc ) ; 
xp := rf"; 
flag := xp" ; 

The expression rf " invokes the myfunc function, which returns a pointer to a function that returns a 
Boolean value. You cannot use the following assignment 

flag := rf""; 

because you cannot de-reference the return value of a function call. 



Addressing Procedure and Function Pointers — Extension 

To obtain procedure and function addresses, use the predeclared function addr. Thus, there is no am- 
biguity about a function reference, especially one with no parameters. It is either invoked by name 
only, or its address is taken by the addr function. 

Although the addr function has been declared to return a univ_ptr, the compiler adds extra type 
checking whenever you try to pass a procedure or function address to a specific procedure or function 
pointer. In the assignment pptr := addr (proc2) from the following program fragment, the declara- 
tion for proc2 must exactly match the template for the procedure type of pptr. If not, the compiler 
reports an error. If, however, the assignment is to a univ_ptr, like xxx := addr (fund), the com- 
piler cannot do this extra type checking. 



VAR 

xxx : UNIV_PTR; 
pptr : "Procedure (IN i, j 
OUT a 
VAR r 
BEGIN 



integer; 

char ; 

real); EXTERN; 



xxx := fund; (This is a call.} 

xxx := addr(funcl); {This takes the address.} 

pptr := addr(proc2) ; {This takes the address and checks.} 
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Pred — Returns the predecessor of a specified ordinal value. 



FORIVIAT 

pred(x) {pred is a function.} 

Argument 

X An integer, Boolean, char, or enumerated expression. 

Function Returns 

The pred function returns a value having the same data type as x. 

DESCRIPTION 

Pred returns the predecessor of x according to the following rules: 

Data Type of x Pred Returns 

Integer The numerical value equal to x - 1 . 

Boolean False — even if x already equals false. 

Char The character with the ASCII value 

one less than the ASCII value of x. If 
this character (x-1) does not exist, 
DOMAIN Pascal cannot detect the 
error. 

Enumerated The identifier to the left of x in the 

type declaration. If x is the left-most 
identifier, pred's return value is 
undefined. 

PRED(FIRSTOF(x) ) generally is undefined; however, DOMAIN Pascal does not report an error. 
DOMAIN Pascal also doesn't report an error if you specify an integer value that is outside the range of 
the specified integer type. Therefore, your program should test for an out-of-bounds condition. 

Compare the pred function to the succ function. 
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EXAMPLE 

PROGRAM pred_example ; 
TYPE 

jours = (lundi, mardi, mercredi , jeudi, vendredi , samedi, dimanche) ; 



VAR 
i 

cl, c2 
semaine 



integer; 

char; 

jours; 



BEGIN 

i := 53; cl := 'n' ; semaine := vendredi; 

writeln('The predecessor of ', i:2, ' is ', pred(i):2); 

c2 := pred(cl) ; 

writeln('The predecessor of ', cl:l, ' is ' , c2) ; 

writeln('The predecessor of ', semaine:8, ' is ' , pred (semaine) : 8) ; 
END. 



Using This Example 

If you execute the sample program named pred_example, you get the following output: 

The predecessor of 53 is 52 

The predecessor of n is m 

The predecessor of VENDREDI is JEUDI 
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Put — Writes to a file. 



FORIVIAT 

put(f) 



{put is a procedure.} 



Argument 

f A variable having the file or text data type. 



DESCRiPTiON 

If f is a file variable, then put(f ) appends one record to the file symbolized by f. If f is a text vari- 
able, then put(f ) appends one character to the file symbolized by f. 

Before calling put(f), you must assign a record or character to f^. So the sequence for writing out data 
looks like the following: 

f" := record_or_character ; 
PUT(f) ; 

For example, the following program fragment demonstrates output via the put procedure: 
VAR 



primes 


file of integerlB; 


poem 


text ; 


a number 


integerl6; 


a letter 


char; 



BEGIN 



a_number := 17; 

primes " : = a_number ; 

PUT(primes); { Append 17 to the file symbolized by primes. } 



v.. 



a_letter := 'Q' ; 

poem" := a_letter; 

PUT (poem) ; { Append 'Q' to the file symbolized by poem. } 
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Note that the three statements 

a_letter := 'Q' ; 

poem" := a_letter; 

PUT (poem) ; { Append 'Q' to the file symbolized by poem. } 

are identical to the two statements 

a_letter := 'Q' ; 
write (poem, a_letter) ; 

You must open f for writing (with rewrite) before calling put. 

NOTE: When you want to close the file on which you were performing puts, your pro- 
gram should issue a writeln to the file just before closing it. This is in order to 
flush the file's internal output buffer. If you don't include the writeln, the last 
line of the file may not be written. 
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EXAMPLE 

PROGRAM put_example; 

{ This program builds a file of student records in file 'hislOl' . } 

CONST 

file to write to = 'hislOl' : 



TYPE 




student = 




record 




name 


: array[1..12] of char; 


age 


: integerl6; 


end; 




VAR 


- 


class 


: FILE OF student; 


a_student 


: student; 


iostat 


: integer32; 



BEGIN 

{ Opens file hislOl for writing. } 

open(class, f ile_to_write_to, 'NEW, iostat); 
if iostat = 

then rewrite (class) 
else return; 

repeat 
{ Prompt users for input, 
writeln; 

writeCEnter the name of a student — '); 
readln(a_student .name) ; 
if a_student.name = 'end' then exit; 
writeCEnter the age of this student — '); 
readln(a_student .age) ; 

{ Append each record to the end of the rec file. 

class" := a_student; 

PUT(class) ; 
until false; 
END. 



Using This Example 

This program is available on-line and is named put example. 
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Read, Readin — Reads information from tiie specified file (or from the keyboard) 
into the specified variable(s). 



FORMAT 

read {f, varl varN) ; 

and 

readin (/, var1 varN); 



{read is a procedure.} 



{readin is a procedure.} 



Arguments 



var 



A variable having a file data type. For read, f can be a text or a file variable. 
However, for readin / must be a text variable. F is optional. If you do not specify 
f, DOMAIN Pascal reads from standard input (input), which is usually the key- 
board. 

One or more variables separated by commas. Var can be any real, integer, char. 
Boolean, subrange, or enumerated variable. (Boolean and enumerated are exten- 
sions to the standard.) Var can also be an array variable (see "Array Operations" 
earlier in this encyclopedia) , an element of an array, or a field of a record vari- 
able. 



o 



DESCRIPTION 

Read and readin perform input operations. (Refer to the get listing earlier in this encyclopedia.) You 
use read or readin to gather one or more pieces of data from f and store them into var1 through varN. 
Read and readin store the first piece of gathered data into var1 , the second piece into var2, and so on 
until varN. 

Before calling read or readin, you must open the file symbolized by f for reading. Chapter 8 explains 
how to do that. 

There is a subtle, but important, difference between read and readin. After a read, the stream marker 
points to the character or component after the last character or component it read from the file. In 
contrast, after a readin, the stream marker points to the character or record after the next end-of-line 
character in the file. In other words, after getting the data for varN, readin skips over the remainder of 
the current line in the input file. (Note that var1 through varN may themselves cover several lines of 
data in the file.) If you call readin and var is a record variable, the compiler reports an error; how- 
ever, it is not an error to call read with the same variable — as long as the record variable is the base 
type of /. 

If you call read or readin when eoi(f) is true, the operating system reports an error. 
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EXAMPLE 

PROGRAM read_example ; 

{ This program demonstrates READLN by reading from the poem stored in } 
{ pathname 'annabel_lee' . } 



CONST 






pathname = 


'annabel_lee' ; 


VAR 




a_line 




string; 


poem 




text; 


title 




array [1.. 60] of char; 


St 




integer32; 


count , n 




integerie ; 



BEGIN 

{ Open the file for reading. } ^ 

open(poem, pathname, 'OLD', st) ; ^ 

if St = 

then reset (poem) 
else begin 

writelnC Cannot open ', pathname); 
return; 
end; 

readin (poem, title) ; 

writeln( 'Which line of ', title); 

writeCdo you want to retreive? — '); V 

readin (n) ; 

for count := 1 to (n + 1) do 
readln(poem, a_line) ; 
writeln (output , a_line) ; 

END. 



Using This Example 

Following is a sample run of the program named read_example: 

Which line of Annabel Lee 

do you want to retreive? — 3 

That a maiden there lived whom you may know 



I 
V 
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Record Operations 



In Chapter 3 you learned how to declare record types and variables. This section explains how to refer 
to records in the action part of your program. 



Referring to Fixed Records 

In the action part of your program, you specify a field of a fixed record in the following way: 
record_name.field_name 

For example, consider the following declaration of a fixed record variable: 
VAR 



student 

n 

id 
end; 



record 

array [1.. 26] of char; 

integerl6; 



You can assign values to the two fields with the following statements: 

student. n := 'Herman Melville'; 
student. id := 37; 

If the data type of the field is itself a record, you must specify the ultimate field in the following way: 
record_name.field_name.field_name 

For example, consider the following record within a record declaration: 
TYPE 



name = record 



first 
middle 
last 
end; 



array [1.. 10] of char; 
array [1.. 10] of char; 
array [1.. 16] of char; 



VAR 

student : record 

n : name ; 

id : integerl6; 
end; 

You can assign values to all four fields with the following statements: 



student .n. first 
student . n . middle 
student .n. last 
student. id 



= 'Kerry' ; 
= 'Bruce' ; 
= 'Raduns' ; 
= 134; 
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Variant Records 

In the "Variant Records" section of Chapter 3, the variant records worker and my_code were de- 
clared as follows: 

TYPE 

worker_groups = (exempt, non_exempt) ; {enumerated type} 

worker = record {record type} 

employee : array [1.. 30] of char; {field in fixed part} 

id_number : integerl6; {field in fixed part} 

CASE wo : worker_groups OF {variant part} 

exempt : (yearly_salary : integer32) ; 
non_exempt : (hourly_wage : real) ; 
end; 

my_code = record 

CASE integer OF {variant part} 

1 : (all : array [1.. 4] of char); 

2 : (first_half : array[1..2] of char; 

second_half : array[1..2] of char); 



(xl 
x2 
x3 



integerl6; 
boolean; 
char) ; 



(rail : single) ; 



end; 



VAR 



w : worker ; 
mc : my_code; 

The following fragment assigns values to w: 

writeCEnter the person"s name — '); readln (w. employee) ; 

write('Enter the person"s id number — '); readln (w. id_number) ; 
writeCEnter pay status (exempt or non_exempt) — '); readln (w. wo ) ; 
if w.wo = exempt 
then begin 

writeCEnter yearly salary — '); readln (w. year ly_salary ) ; 
end 
else begin 

writeCEnter hourly wage — '); readln (w. hourly_wage) ; 
end; 

NOTE: Suppose you execute the preceding fragment and load values into w. employee , 
w. id_number , w.wo, and w.hourly_wage. Note that the compiler won't pro- 
tect you from mistakenly trying to access w.yearly_salary rather than 
w. hourly_wage. 

The following fragment assigns values to mc . (Notice that we do not use the constants 1, 2, 3, and 4 to 
specify these fields.) 

writeCEnter two characters — '); readln (mc. first_half) ; 
writeCEnter two more characters — '); readln (mc. second_half) ; 
writeln ('Together, the four characters are ', mc.all); 
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Arrays of Records 



A common way to store records is as an array of records. You must use the following format to specify 
a field in an array of records; 

array_name [component] .field_name 

For example, given the following declaration for school: 

TYPE 

student = record 
age : 11. .20; 
class : 7. .12; 

name : array[1..20] of char; 
end; 

VAR 

school : array [1. .1000] of student; 

you can specify the 500th record as: 

^^ ) school [500] .age := 15; 

school [500] .class := 10; 

school [500] .name := 'John Donne'; 
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Repeat/Until — Executes the statements within a loop until a specified condition 
is satisfied. 



FORMAT 

repeat 

stmnt; 
until cond; 



{repeat is a statement.} 



Arguments 

stmnt 

cond 



An optional argument. For stmnt, specify a simple statement or a compound 
statement. (Ordinarily, you must bracket a compound statement with a begin/ 
end pair; however, the begin/end pair is optional within a repeat statement.) 

Any Boolean expression. 



DESCRIPTION 

Repeat marks the start of a loop; until marks the end of that loop. At runtime, Pascal executes stmnt 
within that loop until cond is true. As long as cond is false, Pascal continues to execute the statements 
within the loop. 

The following list describes two methods of jumping out of a repeat loop prematurely (i.e., before the 
condition is true): 

o Use exit to transfer control to the first statement following the repeat loop. 
• Use goto to transfer control outside the loop. 

In addition to these measures, you can also execute a next statement to skip the remainder of the 
statements in the loop for one iteration. 



V^ 
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EXAMPLE 

PROGRAM repeat_example; 
\ { This program demonstrates two different REPEAT loops. } 
{ Compare it to while_example. } 



o 



VAR 



num 

test_completed 

i 



integerl6; 

boolean; 

integer32; 



BEGIN 

writeCEnter an integer — '); readln(num) ; 

REPEAT 

num := num + 10; 

writeln(num, sqr(num) ) ; 
UNTIL (num > 101) ; 

writeln; 

test_completed := false; 

REPEAT 

writeCEnter another integer (or to stop the program) — '); 

readln(i) ; 

if i = then 

test_completed := true 

else 

writeln('The absolute value of ', i:l, ' is ' , abs(i):l); 
UNTIL test_completed; 

END. 



Using This Example 

Following is a sample run of the program named repeat_example: 

Enter an integer — 70 

80 6400 

90 8100 

100 10000 

110 12100 

Enter another integer (or to stop the program) — 4 

The absolute value of 4 is 4 

Enter another integer (or to stop the program) — -5 

The absolute value of -5 is 5 

Enter another integer (or to stop the program) — 

{ Now, consider a second run of repeat_example. This time, the user enters } 
{ an integer greater than 101. In contrast to while_example, the program } 
{ still will execute the loop once: } 

Enter an integer — 102 
112 12544 

Enter another integer (or to stop the program) — 
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Replace — Substitutes a new record for an existing record in a file. (Extension) 



FORMAT 

replace (file_variable) {replace is a procedure.} 

Argument 

file_variable A file variable. 

DESCRIPTION 

Use the replace procedure to replace an element in the file specified by file_variable. You can only 
use replace on DOMAIN record-structured (rec) files; you cannot use it to replace an element in an 
UASC file. 

Before calling replace you must do the following: 

1. Open the file for reading. (Chapter 8 explains how to do this.) 

2. Specify the record that you wish to replace. To do this, you can use the find procedure (de- 
scribed earlier in this chapter) . 

3. Store the replacement record by entering a statement of the format: file_variable'' := replace- 
ment_record; 

The replace procedure permits a program to rewrite file components — for example, to correct errors 
— while the file is open for read access. The program need not close the file and reopen it. 

NOTE: In this context, "record" means an occurrence in a DOMAIN record-structured 
file, which may or may not be a DOMAIN Pascal record type. (The occurrence 
might just as easily be an integer type.) 



EXAMPLE 

For a full example of replace, see the example for the find procedure that appears earlier in this ency- 
clopedia. 



v_ 
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Reset — Makes an open file available for reading. 



FORMAT 

reset (filename) {reset is a procedure.} 

Argument 

filename A variable having the text or file data type. 

DESCRIPTION 

Before you can read data from a file other than standard input, you must reset the file. If the file is a 
temporary file and does not already exist, reset creates an empty file. If the file is not a temporary file, 
it must already exist, and you must have previously opened it using open. The open procedure tells the 
system to open a file for some type of I/O operation; reset tells the system to allow you to read from 
the file, but prevents you from modifying the file. (See the description of the find procedure for one 
exception to this rule.) 

Filename must symbolize an open file. 

Calling reset sets the stream marker to point to the beginning of the file. Therefore, filename" will con- 
tain the first character or component of the file. You can change the stream marker by reading from 
the file (with read, readln, or get) or by calling the find procedure. 

If the file is empty when you call reset, then filename" is totally undefined. That is, there is no way to 
predict what the value of filename" will be. 



To open the file for write access you must call rewrite instead of reset. 
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EXAMPLE 

PROGRAM reset_example ; 

{ Demonstrates reset. After opening a file (with OPEN), the program } 

{ reads the first line of the file and writes it to standard output. } 

{ We need the two include files in order to use status_$t and } 

{ error_$print . } 

%NOLIST; 

%INCLIJDE '/sys/ins/base. ins. pas' ; 

%INCLUDE ' /sys/ins/error . ins . pas' ; 

%LIST; 

CONST 

pathname_of_f ile = 'annabel_lee' ; 



VAR 



assignment 
openstatus 
a line 



text; 

status_$t; 

string; 



BEGIN 



{Open the file for reading. } 

open (assignment , pathname_of_f ile , 'OLD', openstatus . all) ; 
if openstatus. all = status_$ok 
then RESET (assignment) 
else begin 

error_$print (openstatus) ; {print any error } 

return; 
end; 
{See Chapter 9 for a discussion of error handling. } 

{Read the first line of the file. } 

readln (assignment , a_line) ; 

{Write this line to standard output (usually the transcript pad) . } 
writeln( output, a_line) ; 

END. 



Using This Example 

This program is available on-line and is named reset_example. 



V 
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Return — Causes program control to jump back to the calling procedure or func- 
tion. (Extension) 



FORMAT 

Return is a statement that takes no arguments and returns no values. 

DESCRIPTION 

Ordinarily, after DOMAIN Pascal executes the last statement in a routine, it returns control to the call- 
ing routine. However, you can use return to jump back prematurely (i.e., before the last statement) to 
the calling procedure or function. You can use return anywhere in the body of a procedure or func- 
tion. 

Using return in the main procedure causes the program to terminate. 

EXAMPLE 

PROGRAM return_example ; 

{This program demonstrates the RETURN statement. } 

VAR 

Ph : single; 

Procedure check_Ph; 
BEGIN 

if (Ph < 2.0) or (Ph > 14.0) then 

begin 

writeln('You have entered an invalid result.'); 

RETURN ; 

end 
else if (Ph <= 4.5) then 

writeln('You have entered a valid (but suspicious) result.') 
else {Ph > 4.5} 

writeln('You have entered a valid result.'); 

writeln( 'Thank you for your cooperation.'); 

END; 

BEGIN {main procedure} 

writeCEnter the Ph of the test sample — '); readln(Ph) ; 
check_Ph ; 

END. 



Using This Example 

This program is available on-line and is named return_example. 
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Rewrite — Makes an open file available for writing only. 



FORMAT 

rewrite (filename) {rewritie is a procedure.} 

Argument 

filename A variable having the text or file data type. 

DESCRIPTION 

Before you can write data to a permanent file other than standard output, you must do two things. 
First, you must open the file with the open procedure. Second, you must call the rewrite procedure. 
Open tells the system to open a file for some type of I/O operations; rewrite tells the system to allow 
you to modify the open file. Filename must symbolize an open file. 

To open a temporary file for writing, you merely have to call the rewrite procedure (i.e., don't call the 
open procedure). c 

NOTE: Rewrite clears an existing file of its entire contents. To avoid inadvertently eras- 
ing an important file, you might consider using the file_history value 'NEW 
when you call open. 

Rewrite sets the stream marker to the beginning of the file. Each call to write, writein, or put ad- 
vances the stream marker. 

After calling rewrite, the file is empty. Therefore, the value of filename^ is totally undefined. That is, 
there is no way to predict what its value will be. 

To open the file for read access you must call reset instead of rewrite. 
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Rewrite 

EXAMPLE 

PROGRAM rewrite_example; 

{ The program will prompt you for the name of the file to open. } 

{ Using OPEN and REWRITE, the program will open a file for writing. } 

{ Then, you will be given a chance to write to the file. } 

{ We need the two include files in order to use status_$t and error_$print . } 

%NOLIST; 

%INCLUDE '/sys/ins/base. ins. pas' ; 

%INCLUDE '/sys/ins/error . ins. pas' ; 

%LIST; 



VAR 

name_of_f ile 
profound 
openstatus 
a_line 

BEGIN 



array [1.. 50] of char; 

text; 

status_$t ; 

string; 



{ Prompt the user for the name of a file to open. } 

writeCWhat is the pathname of the file you want to write to — '); 
readln(name_of_f ile) ; 

{ Open the file for writing. } 

open (profound, name_of_f ile, 'NEW', openstatus. all) ; 
if openstatus. all = status_$ok 
then REWRITE (profound) 
else begin 

error_$print (openstatus) ; { Print an error message. } 
return; 
end; 
{ See Chapter 8 for a discussion of error handling. } 

{ Prompt the user. } 

writeln('Now enter a line of text.'); 
readln(a_line) ; 

{ Write the line out to the open file. } 
writeln (profound, a_line) ; 

END. 



Using This Example 

This program is available on-line and is named rewrite_example. 
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Round — Converts a real number to the closest integer. 



FORMAT 

round(n) 



{round is a function.} 



Argument 



Any real expression. 



Function Returns 

The round function returns an integer value. 

DESCRIPTION 

The round function rounds (up or down) n to the closest integer. If the decimal part of n is equal to or 
greater than .5, the round function rounds up. (Compare round to trunc.) 



EXAMPLE 

PROGRAM round_example ; 
VAR 



X : 


REAL; 








y . 


INTEGER; 








BEGIN 










X 


= 54.2; 


y 


:= ROUND (X) ; 


WRITELN(y) ; 


X 


= 54.5; 


y 


:= ROUND (X) ; 


WRITELN(y) ; 


X 


= 54.8; 


y 


:= ROUND (X) ; 


WRITELN(y) ; 


END. 











Using This Example 

If you execute the sample program named round_example, you get the following output: 



54 
55 
55 
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Rshft — Shifts the bits in an integer a specified number of spaces to the right. 
(Extension) 



FORIVIAT 

rshft(num, sh) {rshft is a function.} 

Arguments 

num, sh Integer expressions. 

Function Returns 

The rshft function returns an integer value. 

DESCRIPTION 

The rshft function shifts the bits in num to the right sh places. Rshft does not wrap bits around from 
the right edge to the left; instead, rshft shifts zeros in from the left end. 

Rshft does not preserve the sign bit. The sign bit moves to the right just like every other bit. This 
means that if num is negative and is a 32-bit integer, the result of an rshft is always positive. Of 
course, if num already is positive, the result of an rshft will still be positive. 

If num is a 16-bit signed integer and if the result of the function is to be stored in a 16-bit integer vari- 
able, then rshft sign-expands num to a 32-bit integer, performs the shift, and converts it back to a 
16-bit integer. The expansion and contraction means that for a 16-bit negative num where sh is less 
than or equal to 16, rshft always returns a negative number. 

Consider this example. Suppose num is 16 bits and equals -9. You perform an rshft with sh equaling 3 
and put the result back in a 16-bit integer. Here's what happens at each step: 

Before the rshft 1111111111110111 = -9 

Convert to 32-bit integer 11111111111111111111111111110111 

Rshft 3 bits 00011111111111111111111111111110 
Convert back to 16-bit integer 1111111111111110 = -2 

If you print the rshft result before it is converted back to 16 bits, you get the number represented in 
the third step above which, of course, is a different number than the final result. Write your code like 
this to get that 32-bit result 

writeln(rshf t (num, 3) ) ; 

instead of like this 

answer := rshft (num, 3) ; {Assume answer is a 16-bit integer.} 

writeln (answer) ; 

Results are unpredictable if sh is negative. 
Compare rshft to Ishft and arshft. 
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EXAMPLE 

See the example shown in the arshft listing earlier in this encyclopedia. 



V. 
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Set Operations 



In Chapter 3 you learned how to declare set variables. This section explains how to use set variables in 
the code portion of your program. 



ASSIGNMENT 

To assign value (s) to a set variable, use one of the following formats: 

set_variable := []; 

set_variable := [el, el, ... e/]; 

set_variable := [el .. el]; 

set_variabie := set_expression set_operator set_expression; 

The brackets are mandatory. El must be an expression, with a value having the same data type as the 
base type of the set variable. 

(The set_operators are detailed later in this listing.) 

The following program fragment shows seven possible set assignments for the paint set: 

TYPE 

colors = (white, beige, black, red, blue, yellow, green) ; 

VAR 

c : colors; {enumerated variable} 

paintl, paint2, paints, paint4, paintS, paint6, paint? : SET OF colors; 

BEGIN 

c := blue; 



paintl 
paint2 
paints 
paint4 
paints 
paints 
paint? 



= [] ; {Null set.} 

= [rojo] ; {Illegal assignment.} 

= [red] ; 

= [beige, green, black] ; 

= [white .. green]; {All seven elements.} 

= [beige .. blue]; {beige, black, red, and blue.} 

= [c] ; {blue.} 
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SET OPERATORS 



Table 4-10 shows the seven set operators DOMAIN Pascal supports. The following subsections de- 
scribe these operators individually. 



Table 4-10. Set Operators 



Set Operator 


Operation 


+ 


Union of two sets 


* 


Intersection of two sets 


- 


Set exclusion 


= 


Set equality 


o 


Set inequality 


<= 


Subset 


>= 


Superset 


in 


Inclusion 



Union 



The union of two sets is a set containing all members of both sets. In the following example, paints 
contains the union of sets paintl and paint 2: 



TYPE 



VAR 



colors = (white, beige, black, red, blue, yellow, green); 



c : colors; 

paintl, paint2, paints : SET OF colors := [] ; 



V. 



BEGIN 

paintl 
paint2 
paints 



= [white, black, red] ; 
= [black, yellow] ; 
= paintl + paint2; 



{paints will contain white, black, red, and yellow.} 



If there are duplicates (e.g., black), the resulting set does not store the duplicate value twice. Thus, 
paints contains black only once. 



Code 
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Intersection 

The intersection of two sets is a set containing only the duplicate elements. In the following example, 
paints contains the intersection of sets paint 1 and paint2: 

TYPE 

colors = (white, beige, black, red, blue, yellow, green); 

VAR 

: colors; 

paintl, paint2, paints : SET OF colors := [] ; 



BEGIN 



paintl 
paint2 
paints 



= [white, black, red] ; 
= [black, yellow] ; 
= paintl * paint2 ; 



{paints will contain black.} 



Set Exclusion 

Pascal finds the result of a set exclusion operation by starting with all the elements in the left operand 
and crossing out any of the elements that are duplicated in the right operand. The following program 
fragment demonstrates two set exclusion operations: 

TYPE 

colors = (white, beige, black, red, blue, yellow, green); 

VAR 
z^"^, c : colors ; 

I ) paintl, paint2, paints : SET OF colors := [] ; 



BEGIN 

paintl := [white, black, red] ; 
paint2 := [black, yellow] ; 

paints := paintl - paint2; 
{paints will contain white and red.} 

paints := paint2 - paintl; 
{paints will contain yellow.} 
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Set Equality and Inequality 

The result of a set equality (=) or inequality (<>) operation is a Boolean value. If two set variables con- 
tain exactly the same elements (or are both null sets), then = is true and <> is false. The following pro- 
gram fragment demonstrates set equality: 

TYPE 

colors = (white, beige, black, red, blue, yellow, green); 

VAR 

c : colors; 

paintl, paint2 : SET OF colors := [] ; 

BEGIN 

paintl := [white, black, red]; 
paint2 := [black, yellow]; 
if paintl = paint2 

then writeln('The two sets contain the same elements."); 

else writeln('The two sets do not contain the same elements."); 



Subset 

The result of a subset operation (<=) is a Boolean value. If the first operand is a subset of the second 
operand, then the result is true; otherwise, the result is false. 

TYPE 

colors = (white, beige, black, red, blue, yellow, green); 

VAR 

c : colors; 

paintl, paint2 : SET OF colors := [] ; 

BEGIN 

paintl := [white, black, red]; 

paint2 : = [white, red]; 

if paint2 <= paintl {this is true} 

then writeln ("Paint2 is a subset of paintl"); 
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Superset 

The result of a superset operation (>=) is a Boolean value. If the first operand is a superset of the sec- 
ond operand, then the result is true; otherwise, the result is false. 

TYPE 

colors = (white, beige, black, red, blue, yellow, green); 

VAR 

c : colors; 

paintl, paint2 : SET OF colors := [] ; 

BEGIN 

paintl := [white, black, red] ; 

paint2 := [white, red] ; 

if paintl >= paint2 {this is true.} 

then writeln('Paintl is a superset of paint2.'); 



Inclusion 

See the separate in listing earlier in this encyclopedia. 
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EXAMPLE 

PROGRAM set_example; 

{This program demonstrates I/O with set variables. You cannot } 

{use a set variable as an argument to any of the predeclared } 

{Pascal I/O procedures, so you must use a somewhat roundabout } 

{method involving the base type of the set. } 

TYPE 

possible_ingredients = 

(sugar, nuts, chips, milk, flour, carob, salt, bkg_soda) ; 
VAR 

pi : possible_ingredients; 

cookies : set of possible_ingredients := []; 

answer : char; 

BEGIN 

{Read the proper cookie ingredients and store } 
{them in the cookies variable. } 

for pi := sugar to bkg_soda do 

begin 

write ('Should the recipe contain ', pi: 4, '? (y or n) — ') 

readln( answer) ; 

if (answer = 'y') or (answer = 'Y') then 
cookies := cookies + [pi]; 

end; {for} 

{Write the list of ingredients. } 

writeln(chr(10) , 'The ingredients are: '); 
for pi := sugar to bkg_soda do 
if pi IN cookies then 
writeln(pi) ; 

END. 



Using This Example 

Following is a sample run of the program named set_example: 

Should the recipe contain SUGAR? (y or n) — y 
Should the recipe contain NUTS? (y or n) — y 
Should the recipe contain CHIPS? (y or n) — y 
Should the recipe contain MILK? (y or n) — n 
Should the recipe contain FLOUR? (y or n) — y 
Should the recipe contain CAROB? (y or n) — n 
Should the recipe contain SALT? (y or n) — y 
Should the recipe contain BKG_SODA? (y or n) — y 

The ingredients are: 

SUGAR 

NUTS 

CHIPS 

FLOUR 

SALT 

BKG_SODA 
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Sin — Calculates the sine of tlie specified number. 



FORIVIAT 

sin (number) {sin is a function.} 

Argument 

nunnber Any real or integer expression. 

Function Returns 

The sin function returns a real value (even if nunnber is an integer). 

DESCRIPTiON 

The sin function calculates the sine of a number. This function assumes that the argument (number) is 
a radian measure (as opposed to a degree measure) . (Refer also to the cos listing earlier in this ency- 
clopedia.) 

EXAIVIPLE 

PROGRAM sin_exaniple; 

{This program demonstrates the SIN function.} 

CONST 

pi = 3.1415926535; 

VAR 

angle_in_radians, cl, converted_to_radians , c2, angle_in_degrees : REAL; 

BEGIN 

write ("Enter an angle in radians — '); 

readln(angle_in_radians) ; 

cl := SIN(angle_in_radians) ; 

writeln('The sine of ', angle_in_radians : 5 : 3 , ' radians is ', cl:5:3); 

{The following statements show how to convert from degrees to radians. } 
write('Enter another angle (in degrees) — '); 
readln(angle_in_degrees) ; 

converted_to_radians := ( (angle_in_degrees * pi) / 180.0); 
c2 := SIN(converted_to_radians) ; 
writeln("The sine of ", angle_in_degrees : 5 : 3 , ' is ' , c2:5:3); 

END. 
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Using This Example 

Following is a sample run of the program named sin_example: 

Enter an angle in radians — l.O 
The sine of 1.000 radians is 0.841 
Enter another angle (in degrees) — 14.2 
The sine of 14.200 is 0.245 



^_ 
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Sizeof — Returns the size (in bytes) of the specified data object. (Extension) 



FORIVIAT 

The sizeof function has two formats: 

sizeof (x) {first form} 

sizeof (x, tag1, . . . tagN) {second form} 



Arguments 



The name of a type (standard or user-defined), a variable, a constant, or a 
string. 



tag One or more constants corresponding to the fields in a variant record. You spec- 

ify these tags only if you want to find the size of a variant record. The number of 
tags can be no greater than the number of tag fields in the variant record. 



Function Returns 

The function returns an integer value. 

DESCRIPTION 

Sizeof returns an integer equal to the number of bytes that the program uses to store x. 

You must often supply a string and its length as input arguments when calling a procedure or function. 
You can use sizeof to calculate the string's length, although the way you call sizeof affects the answer 
you get. For example, if your code includes the following: 

VAR 

length : integer; 
animal : string; 

animal := 'wildebeest'; 
length := SIZEOF (animal) ; 

sizeof returns 80 because animal is declared to be a string, and string is defined as being an array 
of 80 chars. However, if you call the function this way: 

length := SIZEOF ( 'wildebeest' ) ; 
sizeof returns a value of 10. 
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To find the size of a specified variant record, you must pass both the name of the variant record type 
(or variable), and tag fields. For example, consider the following record declaration: 

TYPE 

worker_stat = (exempt, nonexempt) ; 
worker = record 

name : array [1.. 24] of char; 

case worker stat of 



exempt : (salary 
nonexempt : (wages 
plant 
end; 
end; 



integerlG) ; 

single; 

array[1..20] of char); 



To find the size of a record if worker_stat equals exempt, call sizeof as follows: 
SIZEOF (worker_stat, exempt) 

To find the size of a record if worker_stat equals nonexempt, call sizeof as follows: 
SIZEOF (worker stat, nonexempt) 



EXAMPLE 

PROGRAM sizeof_example; 

{ This program demonstrates the SIZEOF function. } 



CONST 










tree = 


'f icus' ; 






TYPE 










student 


= RECORD 








name 


: array [1. .19] 


of 


char; 




age 


: integerlB; 








id 


: integer32; 






end 










VAR 










t2 


: i 


ntegerl6; 







BEGIN 



writeln('The size of constant tree is ', SIZEOF (tree) : 1) ; 

writeln('The size of variable t2 is ', SIZE0F(t2) : 1) ; 

writeln('The size of an integer32 variable is ', SIZEOF(integer32) : 1) 

writelnCThe size of a student record is ', SIZEOF ( student ): 1) ; 



END 



Using This Example 

If you execute the sample program named sizeof _example, you get the following output: 



The size of constant tree is 5 

The size of variable t2 is 2 

The size of an integer32 variable is 4 

The size of the student record type is 26 
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Sqr — Calculates the square of a specified number. 



FORIVIAT 

sqr(n) {sqr is a function.} 

Argument 

n Any integer or real expression. 

Function Returns 

The sqr function returns an integer if n is an integer, and returns a real number if n is real. 

DESCRIPTION 

The sqr function calculates n * n. A potential problem for users is that the square of a large integerl6 
value often exceeds the maximum value (32,767) for integerl6 variables. If this error is possible in 
your program, assign the square of an integer 16 variable to an integers 2 variable. 



EXAIVIPLE 




PROGRAM sqr_ 


_example; 


VAR 




i short 


: integerlB; 


i_long 


: integer32; 


rl, r2 


real; 



BEGIN 

write ('Enter an integer — '); readln(i_short) ; 

i_long := SQR(i_short) ; 

writeln('The square of ', i_short:l, ' is ' , i_long:l); 

write('Enter a real number — '); readln(rl) ; 
r2 := SQR(rl) ; 

writelnCThe square of ', rl:l, ' is ', r2:l); 
END. 



Using This Example 

Following is a sample run of the program named sqr_example: 

Enter an integer — 1100 

The square of 1100 is 1210000 

Enter a real number -- -5 . 23 

The square of -5 . 230000E+00 is 2.735290E+01 
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Sqrt — Calculates the square root of a specified number. 



FORMAT 

sqrt(n) {sqrt is a function.} 

Argument 

n Any integer or real expression that evaluates to a number greater than zero. 

Function Returns 

The sqrt function returns a real value (even if n is an integer). 

DESCRIPTION 

The sqrt function calculates the square root of n. 

EXAMPLE 

PROGRAM sqrt_example ; 
VAR 



i_long 
r_s ingle 
r double 



integer32; 
single; 
double ; 



BEGIN 

write ('Enter an integer — '); readln(i_long) ; 

r_double := SQRT(i_long) ; 

writeln('The square root of ', i_long:l, ' is ' , r_double) ; 

write('Enter a real number — '); readln(r_single) ; 
r_double := SQRT (r_s ingle ) ; 

writeln('The square root of ', r_single, ' is ' , r_double) ; 
END. 



Using This Example 

Following is a sample run of the program named sqrt_example: 

Enter an integer — 24 

The square root of 24 is 4. 898979663848877E+00 

Enter a real number — 24.0 

The square root of 2.400000E+01 is 4. 898979663848877E+00 
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Statements 



Throughout this encyclopedia, we refer to statements, both simple and compound. Here, we define 
statement. 



Statement 

When a format requires a statement, you must enter one of the following: 

• An assignment statement like x:=5orx:=y + z. An assignment statement can also be 
a call to a function like x := ORDCa"). 

• A procedure call like WRITELN ( ' hi ' ) . 

• A goto, if/then, if/then/else, case, for, repeat, while, with, exit, next, or return state- 
ment. 

© A compound statement. 

© An empty statement. 

Simple and Compound Statements 

When the format part of a listing in this chapter says that a command requires a simple statement, it 
just means that we require one statement (see above). A compound statement is a group of zero or 
more statements bracketed by the keywords begin and end. In other words, a compound statement 
has the following format: 

begin 

statementi; 



statementN 
end; 

The action part of a routine is itself a compound statement. A statement can be preceded by a label 
(but not every label is accessible; see the goto listing earlier in this chapter). 
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Succ — Returns the successor of a specified ordinal value. 



FORMAT 

succ(x) {succ is a function.} 

Argument 

X Must be an integer, Boolean, char, or enumerated expression. 

Function Returns 

The succ function returns a value having the same data type as x. 

DESCRIPTION 

The succ function returns the successor of x according to the following rules: 

Data Type of x Succ Returns 

Integer The numerical value equal to x + 1. 

Boolean True — even if x already equals true. 

Char The character with the ASCII value 

one greater than the ASCII value of x. 
Enumerated The identifier to the right of x in the 

type declaration. 

SUCC(LASTOF(x) ) generally is undefined; however, DOMAIN Pascal does not report an error. 
DOMAIN Pascal also doesn't report an error if you specify an integer value that is outside the range of 
the specified integer type. Therefore, your program should test for an out-of-bounds condition. 

Compare the succ function to the pred function. 
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EXAMPLE 

PROGRAM succ_example; 

TYPE 

jours = (lundi, mardi , mercredi , jeudi, vendredi , samedi, dimanche) ; 

VAR 

int : integer; 
ch : char; 
semaine : jours; 

BEGIN 

int := succ(53); writeln('The successor to 53 is ', int:l); 

ch := succ('q'); writeln('The successor to q is ' , ch) ; 

semaine := succ(jeudi); writeln('The successor to jeudi is ', semaine: 8); 
END. 



Using This Example 

If you execute the sample program named succ_example, you get the following output: 

The successor to 53 is 54 

The successor to q is r 

The successor to jeudi is VENDREDI 



4-153 Co6e 



Then 



Then — Refer to If earlier in tliis encyclopedia. 



V. 
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To — Refer to For earlier in this encyclopedia. 

o 
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Trunc — Truncates a real number to an integer. 



FORMAT 

trunc(n) 



{trunc is a function.} 



Argument 



Any real value. 



Function Returns 

The trunc function returns an integer. 

DESCRIPTION 

The trunc function removes the fractional part of n to create an integer. (Compare trunc to round.) 



EXAIVIPLE 




PROGRAM trunc_example ; 




VAR 




X : REAL ; 




y : INTEGER; 




BEGIN 




X := 54.2; y := TRUNC (x) ; 


WRITELN(y) 


X := 54.5; y := TRUNC (x) ; 


WRITELN(y) 


X := 54.8; y := TRUNC (x) ; 


WRITELN(y) 


END.' 





Using Tliis Example 

If you execute the sample program named trunc_example, you get the following output: 



54 
54 
54 



Compare these results to the results of executing program round_example. 
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Type Transfer Functions — Permits you to change the data type of a variable or 
expression In the code portion of your program. (Extension) 



FORMAT 

transfer_f unction (x) (Type transfer functions are functions.} 

Arguments 

transfer_function The name of any predeclared DOMAIN Pascal data type or any user-defined 
data type that has been declared in the program. 

X An expression. 



DESCRIPTION 

DOMAIN Pascal type transfer functions enable you to change the type of a variable or expression 
within a statement. To perform a type transfer function, use any user-created or standard type name 
as if it were a function name in order to "map" the value of its argument into that type. 

With one exception, the size of the argument must be the same as the size of the destination type. 
(Chapter 3 describes the sizes of each data type.) This size equality is required because the type trans- 
fer function does not change any bits in the argument. DOMAIN Pascal just "sees" the argument as a 
value of the new type. The one exception is that integer subranges are always compatible regardless of 
their sizes. 

It is important to remember that type transfer functions do not convert any value. Consider the follow- 
ing data type declarations: 

VAR 

i : INTEGERS 2; 
r : REAL; 

The following assignment converts the value of variable i to a floating-point number: 
r := i; 

However, in the following assignment, DOMAIN Pascal "sees" the bits in i as if they were actually 
representing a floating-point number. In this case, there is a transfer, but no conversion: 

r : = real ( i ) ; 

Note that there are restrictions on the data types to which you can convert a given DOMAIN Pascal 
data type. For example, you get an error if you try the following: 

i := r; 

In such a case, there's no way for DOMAIN Pascal to know what you want to do with the portion of r 
after the decimal point. Use the trunc or round functions (described earlier in this encyclopedia) in- 
stead. 
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A practical application of type transfer functions is in controlling the bit precision of a computation. 
For example, consider the following program fragment: 

VAR 

X, y : integerlB; 

BEGIN 

if X + y > 5 
then ... 

By default, the compiler expands operands x and y to 32-bit integers and performs 32-bit addition 
before making the comparison to 5. However, by using the following type transfer function, we can 
produce more efficient code: 

VAR 

X, y : integerl6; 

BEGIN 

if INTEGER16(x + y) > 5 
then . . . 

The disadvantage to using the type transfer function in the preceding fragment is that it ignores the 
possibility of integer overflow. 
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EXAMPLE 

PROGRAM type_transf er_functions_example ; 

{ This program demonstrates two uses of type transfer functions. } 

TYPE 

car_manufacturers = (volvo, fiat, nissan, dodge, porsche) ; 

pointer_to_word = "word; 

word = array[1..10] of char; 



O 



o 



VAR 

ordinal_value_of_car : integerl6; 
car, actual_value_of_car : car_manufacturers; 
name, rename : word ;= [* of ' ']; 
namepointer : pointer_to_word; 

BEGIN 

{ Here, we convert an ordinal value into an enumerated value.} 
car := dodge; 

ordinal_value_of_car := ord(car) ; 

actual_value_of_car := CAR_MANUFACTURERS(ordinal_value_of_car) ; 
writeln('The actual value of ordinal value ', ordinal_value_of_car : 1, 
' is ' , actual_value_of_car : 7) ; 

It is illegal to perform mathematical operations on a pointer variable. 
However, by using type transfer functions you can temporarily make 
a pointer variable into an integer32 variable so that you can perform 
mathematical operations on it. Then, after using the integer in a math 
calculation, you can transfer the integer back to a pointer type by using 
a second type transfer function. This routine prints the final eight 
characters in the specified name. 

writeCEnter a name that is 10 characters long — '); readln(name) ; 

namepointer := addr(name); {get starting address of name array} 

namepointer := UNIV_PTR(INTEGER32 (namepointer) + 2); 

rename := namepointer"; 

writeln('The last eight characters of the name are ', rename:8); 
END. 



Using This Example 

If you execute the sample program named ttf_example, you get the following output: 

The actual value of ordinal value 3 is DODGE 

Enter a name that is 10 characters long — CALIFORNIA 

The last eight characters of the name are LIFORNIA 
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Unpack — Copies a packed array to an unpacked array. 



FORMAT 

unpack(packed_array, unpackecl_array, index) {unpack is a procedure.} 

Arguments 

unpacked_array An array that has been defined without the keyword packed. 

packed_array An array that has been defined using the keyword packed. 

index A variable that is the same type as the array bounds (integer, boolean, char, or 

enumerated) of unpacked_array. Index designates the array element in un- 
packed_array to which unpack should begin copying. V. 

DESCRIPTION 

Unpack copies the elements in a packed array to an unpacked one. Data access with unpacked arrays 
generally is faster since data elements are always aligned on word boundaries. 

Unpacked_array and packed_array must be of the same type, and for every element in packed_array, 
there must be an element in unpacked_array. That is, if you have the following type definitions 

TYPE 

X : array [i..j] of single; 

y : packed array [m. .n] of single; 

the subscripts must meet these requirements: 

j - index >= n - ra {"index" as set in the call to unpack} 

For example, it is legal to use unpack on two arrays defined like this: 

TYPE 

big_array : array [1. .100] of integer; 

small_array : packed array [1.. 10] of integer; 
VAR 

grande : big_array; 

petite : small_array; 

You use index to indicate the array element in unpacked_array to which unpack should begin copy- 
ing. For instance, given the previous variable declarations and assuming variable i is an integer, this 
fragment 

i := 1; 

unpack(petite, grande, i) ; 

tells unpack to begin copying into grande [1]. Unpack keeps copying until it has exhausted all of 
petite's elements — in this case 10. Unpack always copies all of its packed_array's elements, re- 
gardless of how many elements are defined for unpacked_array. 
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Unpack 

Index can take a value outside of packecl_array's defined subscripts. That is, if in the example above, 
i equals 50, unpack copies these values this way: 

grande[50] := petite [1] ; 
grande[51] := petite [2]; 



grande[59] := petite [10] ; 

See the listing for pack earlier in this encyclopedia. 

EXAMPLE 

PROGRAM unpack_example; 

TYPE 

uarray = array [1.. 50] of integerl6; 
parray = packed array [1.. 10] of integerlB; 



VAR 



full_range 
sub_range 
i, J 



uarray; 
parray; 
integerl6; 



BEGIN 

for i := 1 to 10 do 

sub_range [ i ] : = i ; 
J := 30; 

UNPACK ( sub_range , f ull_range , j ) ; 

writeln ('The unpacked array now contains: '); 

for i := 30 to 39 do 

writeln ( ' f ull_range [ ' , i:2, '] = ', full_rang6 [i] : 2) ; 

END. 



Using This Example 

If you execute the sample program named unpack_example, you get the following output: 



The unpacked array now contains : 

full_range[30] = 1 

full_range[31] = 2 

full_range[32] = 3 

full_range[33] = 4 

full_range[34] = 5 

full_range[35] = 6 

full_range[36] = 7 

full_range[37] = 8 

full_range[38] = 9 

full_range[39] = 10 
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Until — Refer to Repeat earlier in this encyclopedia. 






v._ 
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While — Execute the statements within a loop as long as the specified condition 
is true. 



FORMAT 

while condition do {while is a statement.} 

stmnt; 



Arguments 

condition Any Boolean expression. 

stnnnt A simple statement or a compound statement. (Refer to "Statements" earlier in 

this encyclopedia.) 

DESCRIPTION 

For, repeat, and while are the three looping statements of Pascal. With while, you specify the condi- 
tion under which Pascal continues looping. 

While marks the beginning of a loop. As long as condition evaluates to true, Pascal executes stnnnt. 
When condition becomes false, Pascal transfers control to the first statement following the loop. 

To jump out of a while loop prematurely (i.e., before the condition is true), do one of the following 
things: 

o Use exit to transfer control to the first statement following the while loop. 

o Use goto to transfer control outside the loop. 

In addition to these measures, you can also call the next statement to skip the remainder of the state- 
ments in the loop for one iteration. 
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EXAMPLE 



PROGRAM while_example; 

{ This program contains two while loops. } 

{ Compare it to repeat_example. } 

VAR 



num 

test_completed 

i 



integerlB; 

boolean; 

integer32; 



BEGIN 



write('Enter an integer — '); readln(num) ; 
WHILE (num < 101) DO 

BEGIN 

num : = num + 10 ; 

writeln (num , sqr (num) ) ; 

END; 

writeln; 

test_completed := false; 
WHILE test_completed = false DO 
BEGIN 

write ('Enter an integer (enter a to stop the program) — ') 
readln(i) ; 
if i = then 

test_completed : = true 
else 

writeln ('The absolute value of ', i:l, ' is ', abs(i):l); 
END; 
END. 



Using This Example 

Following is a sample run of the program named while_example: 

Enter an integer — 70 

80 6400 

90 8100 
100 10000 
110 12100 

Enter an integer (enter a to stop the program) — 4 

The absolute value of 4 is 4 

Enter an integer (enter a to stop the program) — -5 

The absolute value of -5 is 5 

Enter an integer (enter a to stop the program) — 

{Now, consider a second run of while_example. In contrast to repeat_example, } 
{while_example does not execute the loop even once when x > 101. } 

Enter an integer — 102 

Enter an integer (enter a to stop the program) — 
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With — Lets you abbreviate the name of a record. 



FORMAT 

With is a statement that takes the following format: 

with v1 , v2, ... vN do 
stmnt; 

This format is equivalent to: 

with v1 do 

with v2 do 



with vN do 

stmnt; 



Arguments 

v1 

v2, ... vN 
stmnt 



A record expression; that is, v1 must evaluate to a record. For example, it might 
be the name of a record, a pointer to a record, or a particular component in an 
array of records. 

Optional record references or references that are qualified by v1 , ... v(N-1). 

A simple or compound statement. (Refer to the "Statements" listing earlier in this 
chapter.) 



o 



DESCRIPTION 

Use with to abbreviate a reference to a field in a record. With works in the following manner. Suppose 
that X is a field within record MATHVALUES. Ordinarily, you must specify the full name MATHVALUES.X 
whenever you want to refer to the contents of field X. However, by using the statement 

WITH MATHVALUES 

you can simply specify X to refer to the contents of the field. Moreover, suppose that record MATH- 
VALUES contains a field called TRIGONOMETRY which itself contains a field named Y. By specifying 

WITH MATHVALUES, TRIGONOMETRY 

you can refer to Y as Y rather than as MATHVALUES. TRIGONOMETRY. Y. Note that DOMAIN Pascal 
evaluates the expression v1 only once, and this evaluated expression is implied within the body of the 
with statement. 
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Now consider a fragment demonstrating with: 



TYPE 






p = "basketball_ 


team; 


VAR 




bb = basketball. 


_team ; 


BEGIN 




WITH p" DO 




BEGIN 




mascot 




= 'tiger' ; 


P 




= nil; 


height 




= 198.2; 


bb. mascot 


= 'lion' ; 



END; 



Note two things about the preceding example. First, changing p does not affect access to the record 
identified by the with statement. Second, you can reference other records of the same type by com- 
pletely qualifying the reference. 



Extension to Standard Pascal 

DOMAIN Pascal supports the standard format of with and also supports the following alternative for- 
mat: 

with v1:identifier1, v2:identifier2, ... vN.-identifierN do 
stmnt; 



This is very similar to the standard format for with. In this extension, the Identifier is a pseudonym for 
the record reference v. To specify a record, use the Identifier instead of the record reference v. Fur- 
thermore, to specify a field in a record, use identifier. field_name rather than merely field_name. 

For example, given the following record declaration: 



VAR 



basketball_team : record 

mascot : array[1..15] of char; 

height : single; 
end; 



consider the following three methods of assigning values: 



readln(basketball_team. mascot) 
readln (basketball_team . height) 



{Not using WITH.} 
{Not using WITH.} 



WITH basketball_team DO 
begin 

readln (mascot) ; 

readln (height) ; 
end; 



{Using standard WITH.} 



WITH basketball_team : B DO 
begin 

readln (B. mascot) ; 

readln (B. height) ; 
end; 



{Using extended WITH.} 



v.. 
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With 

This feature is useful for working with long record names when two records contain fields that have the 
same names. (See the example at the end of this listing.) 

EXAMPLE 

PROGRAM with_example; 

{ This program demonstrates the WITH statement. } 

TYPE 

name = record 

first : array[1..10] of char; 

last : array[1..14] of char; 
end; 
document at ion_department = record 

their_name : name; 

current_project : string; 
end; 

VAR 

our_technical_writers, our_editors : documentation_department ; 

BEGIN 

writelnCIn this routine, you enter data about Apollo documentors.'); 

{ First, we demonstrate the standard use of WITH. } 
WITH our_technical_writers, their_name DO 
BEGIN 

write('Enter the first name of the writer — '); 
readln(f irst) ; 

writeCEnter the last name of the writer — '); 
readln(last) ; 

write('Enter a brief description of his or her current project — '); 
readln(current_project) ; 
END; {with} 

writeln; 

{ Next, we demonstrate the DOMAIN Pascal extensions to WITH. } 

{ Use of the identifiers W and E permits a distinction between the records } 

{ inside the scope of the WITH statement. } 

WITH our_technical_writers : W, our_editors : E DO 
BEGIN 

writeCEnter the first name of the editor — '); 
readln(E.their_name. first) ; 

writeCEnter the last name of the editor — '); 
readln(E. their_name. last) ; 

E.current_project := W.current_project; 
END; 
END. 



Using This Example 

This program is available on-line and is named with_example. 
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Write, Writein 
screen). 



— Writes tlie specified information to tine specified file (or to the 



FORIVIAT 

write (/, expA '.field _wicith, ..., expN:field_width) 

and 

writein (^ ex\^1:field_width, ..., expN: field _width) 



{write and writein are procedures.} 



Arguments 



exp 



field width 



A variable having either the text or file data type. F is optional. If you do not 
specify f, DOMAIN Pascal writes to standard output (output) which is usually the 
transcript pad. (Note that output has a text data type.) 

One or more expressions separated by commas. An expression can be any of the 
following: 

• A string constant 

• An integer, real, char, Boolean, or enumerated expression 

• An element of an array 

• The name of an array variable whose base type is char 

• A field of a record variable (assuming that the field is itself one of the 
previous four items) 

Note that exp cannot be a set variable. 

An integer expression that specifies the number of characters that write or 
writein uses to output the value of this arg. Field_width is optional. Its effect de- 
pends on the data type of the exp to which it applies. (We detail these effects in 
the next section.) Note that you can specify field_width only if the f has the text 
data type. 



v^. 



V 



DESCRIPTION 

Write and writein are output procedures. (Put is also an output procedure; see the put listing earlier 
in this encyclopedia.) Write and writein both write the values of arguments exp1 through expN to the 
file specified by f. At runtime, Pascal writes the value of exp1 first, the value of exp2 second, and so 
on until expN. 

Write and writein are identical in syntax and effect except that writein appends a newline character 
after writing the exps but write does not. In addition, when using write, f can have a file or text data 
type; however, when using writein, f must have a text data type only. 

Before calling write or writein to write to an external file, you must open the file for writing. Chapter 8 
details this process. Note that you do not need to open the standard output (output) file before writing 
to it. 
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Write, Writein 

Following the call to write, T is totally undefined. 

The following paragraphs explain the output rules that DOMAIN Pascal uses to print the value of an 
exp. 

Char Variables, Array of Char Variables, and String Constants 

The following list shows the default field_widths for char variables, array of char variables, and string 
constants: 

o If exp is a char variable, the default fielcl_width is 1. 

• If exp is an array of char variable, the default field_width is the declared length of the array. 
For example, if you declare an array named Oslo_array as 

Oslo_array : array [1.. 10] of char; 

then the default field_width is 10. 
f j • If exp is a string constant, the default field_width is the number of characters in the string. 

If you do specify a field_width, here's how write and writein interpret it: 

field_width What DOMAIN Pascal does 

= default Writes a value with no leading or 

trailing blanks. 

> default Adds leading blanks. 

< default Truncates the excess characters at the 

end of the array of string. 
= -1 Truncates any trailing blanks in the 

array. Standard Pascal issues an error 

if you specify a negative field _width. 

For example, notice how the fleld_widths in the following writein statements affect output. (The first 
two lines of output form a column ruler to help you notice columns.) 
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DOMAIN Pascal Statements 



Output 



VAR 

name : array [1.. 20] of char; 
grade : char ; 



BEGIN 

name : = ' Zenker Har r i s 
grade := 'F' ; 



WRITELN(name, grade); 
WRITELN ( name : -1 , grade ) ; 
WRITELN ( name : 4 , grade ) ; 
WRITELN (name: 25, grade); 



12 3 
123456789012345678901234567890 
Zenker Harris F 
Zenker HarrisF 
ZonkF 

Zenker Harris F 



Integer Values 

The default field _width for an integer value is 10 spaces. This default applies to integer, integer 16, in- 
teger32, and subrange variables, and to elements of an array that have one of these types as a base 
type. It also applies to record fields that have one of the aforementioned types. 

If you specify a field_width greater than the number of digits in the integer value, DOMAIN Pascal 
prints the value with leading blanks. 

If you specify a field_width less than or equal to the number of digits in the integer value, DOMAIN 
Pascal writes the value without leading or trailing blanks. Note that specifying a field _width never 
causes DOMAIN Pascal to truncate the written value. 

For example, consider an integerl6 variable named small_int with a value of 452 and an integer32 
variable named large_int with a value of 70,600,100. Notice how the field_widths in the following 
writein statements affect output. (The first two lines of output form a column ruler to help you notice 
columns.) 



DOMAIN Pascal Statements 



Output 



WRITELN (small_int) ; 
WRITELN (large_int) ; 
WRITELN ( small_int : 5 ) ; 
WRITELN(small int:l); 



12 3 
123456789012345678901234567890 
452 
70600100 
452 
452 



Real Values 

For real exp you can supply no field _width, a one-part field _widtli, or a two-part field_wldth. Here are 
the rules: 



• If you don't supply a field_widtti, DOMAIN Pascal uses 13 spaces to write a single-precision 
value and 22 spaces to write a double-precision value. 

o If you supply a one-part fleld_wldth, DOMAIN Pascal adds or removes digits from the frac- 
tional part. 

• If you supply a two-part fleld_wldth, DOMAIN Pascal interprets the first part of the 
field width as the total number of characters to print and the second part of the field_wldth as 
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the number of digits to print following the decimal point. Note that the second part of the 
field _width has priority over the first part. For instance, suppose that you request a total width 
(the first part) of 5 characters and a fractional width (the second part) of 7 characters. Since 
DOMAIN Pascal cannot satisfy both parts, it will satisfy only the second part. 

If you don't supply a two-part field_width, DOMAIN Pascal always leaves one leading space for posi- 
tive numbers; none for negative numbers. 

If there is not enough room for all the digits in the number, DOMAIN Pascal rounds the value rather 
than truncating it. 

For example, suppose that a single-precision real variable named velocity has a value of 43.54893. 
The following table shows how various writein statements affect output. (The first two lines of output 
form a column ruler to help you notice columns.) 



DOMAIN Pascal Statements 



Output 



12 3 
123456789012345678901234567890 



WRITELN (velocity) ; 
WRITELN (velocity: 20) ; 
WRITELN (velocity :1) ; 
WRITELN (velocity: 15: 4) ; 
WRITELN (velocity:7:4) ; 
WRITELN ( velocity :7: 2) ; 
WRITELN (velocity: 3:0) ; 
WRITELN(velocity:l:5) ; 



4.354893E+01 

4 . 3548930000000E+01 

4.4E+01 

43.5489 
43.5489 
43.55 
44. 
43.54893 



Enumerated and Boolean Values 

DOMAIN Pascal keeps the same rules for writing enumerated and Boolean values. For both types, the 
default field_width is 15. Here's what happens if you specify your own field _width\ 

o If you specify a field_width less than 15, DOMAIN Pascal subtracts a suitable number of lead- 
ing blanks. 

o If you specify a field_widtti greater than 15, DOMAIN Pascal adds a suitable number of lead- 
ing blanks. 

Note that DOMAIN Pascal never truncates any of the characters in the value (even if the field _width is 
less than the number of characters). 
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The following example shows how various field_widths affect output. (The first two lines of output form 
a column ruler to help you notice columns.) 
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VAR 



colors : (red, brown, magenta) ; 
evil : boolean; 



BEGIN 

colors := brown; 
WRITELN( colors) ; 
WRITELN (colors: 8) ; 
WRITELN( colors :1) ; 

evil := true; 
WRITELN (evil) ; 
WRITELN (evil: 2) ; 



Output 



12 3 

123456789012345678901234567890 



brown 



brown 
brown 



true 



true 



EXAMPLE 

PROGRAM write_example; 

{ This example reads one input line from the keyboard and writes it to } 
{ filename 'truth'.} 

CONST 

pathname = ' truth' ; 



VAR 



a_line 
wisdom 
statint 



string; 
text ; 
integer32; 



BEGIN 



open(wisdom, pathname, 'NEW', statint); 
if statint <> then 

return 

else rewrite (wisdom) ; 

WRITE ('Enter a sentence of truth — '); 
readln(a_line) ; 
WRITELN (wisdom, a_line) ; 

WRITELN (wisdom, chr(lO) , chr(lO), chr(9) , 'Thank You' , chr(7)); 
{ ASCII 10 is a linefeed. ASCII 9 is a tab. ASCII 7 is the bell. } 

END. 



Using This Example 

This program is available on-line and is named write_example. 
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Xor — Returns the exclusive or of two integers. (Extension) 



FORIVIAT 

xor(int1 , int2) 



{xor is a function.} 



Arguments 

int1, int2 



Integer expressions. 



o 



Function Returns 

The xor function returns an integer value. 

DESCRIPTION 

Use the xor function to take the bitwise exclusive or of int1 and int2. The xor function belongs to the 
bitwise class consisting of &, !, and -, and does not belong to the Boolean operator class consisting of 
and, or, and not. When matching bits for an xor function, DOMAIN Pascal uses the following truth 
table: 



o 



bit X 
of opl 


bit X 
of op2 


bit X of 
result 














1 


1 


1 





1 


1 


1 
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EXAMPLE 

PROGRAM xor_example; 

{This program finds the exclusive or of two integers by using XOR. } 

VAR 

il, i2, result : integerl6; 

BEGIN 

writeCEnter an integer — '); readln(il) ; 

write('Enter another integer — ' ) ; readln(i2); 

result := XOR(il, i2) ; 

writeln('The exclusive or of ', il:l, ' and ', i2:l, ' is ' , 
result :1) ; 
END. 

Using This Example 

Following is a sample run of the program named xor_example: 

Enter an integer — 6 

Enter another integer — 20 

The exclusive or of 6 and 20 is 18 
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Prooedyres and Fuootioni; 



This chapter explains how to declare and call procedures and functions. The term "routine", which ap- 
pears throughout this chapter, means either procedure or function. The terms "parameter" and "argu- 
ment" also appear throughout this chapter. In this case, argument means the data passed to a routine, 
while parameter means the templates for the data that the called routine receives. 

Chapter 2 mentioned that routine headings take the following format: 

attributejist procedure name {parameter Jist) ; routine_options', 
or 

attributejist function name {parameterjist) : data_type; routine _options 
This chapter details the parameterjist, routine_options, and attributejist. 

5.1 Parameter List 

You can declare a routine with or without parameters. If you declare it without parameters, you cannot 
pass any arguments to the routine. If you declare it with parameters, you specify the data type of each ar- 
gument that can be passed to the routine. 

You specify parameters within a parameter list. You can specify a maximum of 65 parameters within the 
list. A parameter list has the following format: 

{paramjypel parjisti : data_type1; 



paramJypeN parJistN : dataJypeN); 
The paramjype is optional; for information, see the "Parameter Types" section later in this chapter. 
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A paMist consists of one or more parameters that have the same data_type. Thus, the combination 

parjist : data_type 

is similar to a variable declaration. Like a variable declaration, each parameter in parjist must be a valid 
identifier. Also, each data type must be a predeclared DOMAIN Pascal or user-defined data type. That 
is, you cannot specify an anonymous data type. (See the "Var Declaration Part" section in Chapter 2 for 
more information on anonymous data types.) 

You can use a parameter in the action part of the routine just as you would use any variable. Consider the 
following sample routine declarations: 

{ Declare a procedure with no parameter list. } 
Procedure simple; 



{ Declare a procedure with a parameter list that has two parameters. } 
Procedure con (a : integer; 
b : real) ; 



{ Declare a function with a parameter list that has two parameters } 
{ sharing the same data type. } 

Function anger (x,y : boolean) : integerl6; 



{ Declare a function with a parameter list that has three parameters. } 



Function big (quart 
volume 
cost 



integerl6; 

real; 

single) : single; 



The following routine declaration is wrong because it uses an anonymous data type: 
Procedure range (small_range : 0..10); {WRONG!} 

To call a routine, simply specify its name. If the procedure has a parameter list, you must also specify ar- 
guments. The data type of each argument, with two exceptions, must match the data type of its corre- 
sponding parameter. For example, if the second parameter is declared as integerl6, the second argument 
must be an integerl6 value. The following examples call the routines that were previously declared: 

{ Call simple with no arguments. } 
simple; 



{ Call con with two arguments. The first argument must be an integer, } 
{ and the second argument must be a real number. } 
con (14, 5.2) ; 



{ Call anger with two Boolean arguments. Variable answer must have } 
{ been declared as an integer. } 

answer := anger(true, false); 



{ Call big with three arguments. Assume that pints is an integer and } 
{ price is a real number. } 

if big(pints * 2, 4.23E3, price) > 1.40 
then . . . 
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DOMAIN Pascal supports many features that let you specify precisely how a routine is to be called. The 
remainder of this chapter details these features. 



5-2 Parameter Types 



A paramjtype is optional. If you do not include one, you are in effect passing a value parameter. Value 
parameters are discussed in this section. If you want to specify a paramjtype, it must be one of the follow- 
ing: 

o var (i.e., a variable parameter) 

• in 

• out 

o in out 

The following subsections describe each of these. 



o 



5.2.1 Variable Parameters and Value Parameters 

In standard Pascal, you pass arguments to and from routines as variable parameters or value parameters. 
(DOMAIN Pascal supports both methods plus certain extensions described later in this subsection.) The 
following examples illustrate the distinction between variable parameters and value parameters. 

Pascal regards variable parameters as synonyms for the variable you pass to them. In var_parame- 
ter_example below, variable parameter n becomes a synonym for argument x; that is, whatever hap- 
pens to n in addc also happens to x. Note that you can only pass a variable as an argument to a variable 
parameter. You cannot pass a value. 

Pascal does not regard value parameters as synonyms to the arguments you pass to them. In 
value_parameter_example, value parameter n takes on a copy of the value of x within addc; there- 
fore, whatever happens to n in addc has no affect on the value of x. Note that you can pass variables, 
values, or expressions as arguments to a routine with value parameters. 



Program var_parameter_example ; 



VAR 



integerl6; 



Program value parameter example; 



VAR 



integerie ; 



PROCEDURE addc (VAR n : integerlB) ; 
BEGIN 

n := n + 100; 

writeln('In addc, n=',n:4); 
END; 



PROCEDURE addc(n : integerlB) ; 
BEGIN 

n := n + 100; 

writeln('In addc, n=',n:4); 
END; 



BEGIN {main} 
X := +10; 
addc(x) ; 
writelnCIn main, x=',x:4); 

END. 



BEGIN {main} 

X := +10; 

addc(x) ; 

writelnCIn main, x=',x:4) 
END. 



Both programs are available on-line and are named var_parameter_example and value_parame- 
ter example. 
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Here are the results you get from each program: 

Execution of var_parameter_example Execution of value _parameter_example 

In addc, n= 110 In addc, n= 110 

In main, x= 110 In main, x= 10 

The only difference between the two programs is the keyword var in the procedure declaration statement 
of var_parameter_example. This keyword identifies n as a variable parameter; the absence of var 
identifies n as a value parameter. 

5.2.2 In, Out, and In Out — Extension 

In standard Pascal, you cannot specify the direction of parameter passing. However, DOMAIN Pascal 
supports extensions to overcome this problem. You can use the following keywords in your routine decla- 
ration: 

• In — This keyword tells the compiler that you are going to pass a value to this parameter, and 
that the routine is not allowed to alter its value. If the called routine does attempt to change its 
value (that is, use the parameter on the left side of an assignment statement), the compiler issues 
an "Assignment to IN argument" error. 

• Out — This keyword tells the compiler that you are not going to pass a value to the parameter, 
but that you expect the routine to assign a value to the parameter. It is incorrect to try to use the 
parameter before the routine has assigned a value to it,, although the compiler does not issue a 
warning or error in this case. 

If the called routine does not attempt to assign a value to the parameter, the compiler may issue a 
"Variable was not initialized before this use" warning. This could occur if your routine only as- 
signs a value to the parameter under certain conditions. If that is the case, you should designate 
the parameter as var instead of out. 

In some cases, the compiler cannot determine whether or not all paths leading to an out parame- 
ter assign a value to it. If that happens, the compiler does not issue a warning message. 

• In out — This keyword tells the compiler that you are going to pass a value to the parameter, and 
that the called routine is permitted to modify this value. It is incorrect to call the routine before 
assigning a value to the parameter, although the compiler does not issue a warning or error in this 
case. The compiler also doesn't complain if the called routine does not attempt to modify this 
value. 

For example, consider the following program: 

PROGRAM in_out_example ; 

{This program demonstrates the IN, OUT, and IN OUT parameters.} 

VAR 

legl, leg2 : integerl6; 

hypotenuse : single; 

temp : real ; 

unit : char; 



PROCEDURE Pythagoras (IN legl : integerlB; 

IN leg2 : integerl6; 

OUT hypotenuse . : single) ; 

BEGIN (^ 

hypotenuse := sqrt((legl * legl) + (leg2 * leg2)); V. 
END; 
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FUNCTION boiling (IN OUT temp : real; 

IN unit : char) : boolean; 
BEGIN 

if unit = 'F' 

then temp := (temp - 32) * 0.55555; 
if temp >= 100 

then boiling := true 
else boiling := false; 
END; 



BEGIN 

writeCEnter the first leg of a triangle — '); readln(legl) ; 
write('Enter the other leg of the triangle — '); readln(leg2) ; 
Pythagoras (legl, leg2, hypotenuse); 
writeln( 'Hypotenuse of the triange is ', hypotenuse); 

writeln(chr(10) , chr(lO) , 'Assume 1 Atm. pressure'); 
write('Enter the water temperature — '); readln(temp) ; 
write('Is this temp, in Fahrenheit or Celsius (F or C) — '); 
readln(unit) ; 

if boiling(temp, unit) 

then writeln( temp: 5:1, ' degree water will boil!') 
else writeln(temp:5 :1, ' degree water will not boil.'); 

END. 

This program is available on-line and is named in_out_example. 

NOTE: The compiler checks for misuses of in, out, and in out at compiletime, but the 
system does not check for such errors at runtime. 

5.2.3 Univ — Universal Parameter Specification — Extension 

Univ is a special parameter type that you specify immediately prior to the data_type (rather than prior to 
the parjist). 

By default, DOMAIN Pascal checks that the argument you pass to a routine has the same data type as the 
parameter you defined for the routine. However, you can tell DOMAIN Pascal to suppress this type 
checking. You do this by using the keyword univ prior to a type name in a parameter list. By using univ, 
you can pass an argument that has a different data type than its corresponding parameter. 
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Univ is especially useful for passing arrays. For example, the following program would be incorrect with- 
out the keyword univ. That's because little_array and big_array have different data types: • 



TYPE 



big array 



= array [1.. 50] of integer32 



VAR 



large_array 
medium_array 
little_array 
sum 



array [1.. 50] of integer32; 

array[1..25] of integer32; 

array [1.. 10] of integer32; 
integer32; 



Procedure sum_elements(in b 

in array_size 
out sum 

BEGIN 



UNIV big_array; 
integerl6; 
integer32) ; 



END; 

BEGIN {main} 

sum_elements(little_array, 10, sum); 
END. 

In addition to the procedure call listed above, you could also make either of the following calls to proce- 
dure sum_elements: 

sum_elements(medium_array, 25, sum); 

or 

sum_elements ( large_array , 50 , sum) ; 
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Use univ carefully! It can cause problems if improperly used. The most frequent source of trouble is a 
difference in size between the argument and parameter data types. The data type of the parameter deter- 
mines how the called routine treats the data passed to it. Typically, routines that use univ parameters have 
another parameter that supplies additional information about the size or type of the actual parameter. In 
the preceding example, the array_size parameter gives the size of the array parameter passed. The fol- 
lowing example shows another possible misuse of univ: 

Program univ_example; 

{This example demonstrates poor use of UNIV.} 

{The program uses UNIV to pass two double-precision arguments to two} 
{single-precision parameters. The calculation of 'mean' will not be} 
{correct because single- and double-precision real numbers have } 
{different bit patterns for exponent and mantissa. Furthermore, } 
{the compiler will not warn you about this problem.^ } 

VAR 

first_value, second_value : double; 



Procedure average (s,t : UNIV single); 
VAR 

mean : double; 
BEGIN 

mean := (s + t) / 2.0; 

writeln('The average is ', mean); 
END; 



BEGIN {main} 

write('Enter the first value — '); readln(first_value) ; 

writeCEnter the second value — '); readln(second_value) ; 

average (first_value, second_value) ; 
END . 

NOTE: To prevent some problems that result from suppressing type checking, explicitly 
declare univ parameters as in, out, in out, or var. 

When you pass an expression argument (as opposed to a variable argument) to a univ parameter, 
DOMAIN Pascal extends the expression to be the same size as the univ parameter. In addition, the com- 
piler issues the following message: 

Expression passed to UNIV formal NAME was converted to NEWTYPE. 
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5.3 Routine Options 



As mentioned in the beginning of this chapter, you can optionally specify routine _options at the end of 
the routine declaration. DOMAIN Pascal supports the following routine options: 

• forward 

o extern 

o internal 

o variable 

o abnormal 

o val_param 

o nosave 

o noreturn 

o dO_return 
Use one of the following formats to specify one or more of these options: 

routine _option1 ; ... routine _optionN; 

or 

options (roi;f/ne_opf/ont, . . . routine _optionN) ; 

The two formats are equivalent; the first format is shorter, and the second format is more readable. Note, 
however, that you can only use format, extern, internal, and val_param with the first format. 

Here are some examples: 

FUNCTION eggs_and_ham( letter : char) : char; INTERNAL; 

or 

FUNCTION eggs_and_ham( letter : char) : char; OPTIONS ( INTERNAL ) ; 
PROCEDURE sam_i_ara(x, y : real); EXTERN; ABNORMAL; 
or 

PROCEDURE sam_i_ara(x, y : real); OPTIONS (EXTERN, ABNORMAL); 
The remainder of this section explains the routine options. 

5.3.1 Forward 

The forward option is a feature of standard Pascal and DOMAIN Pascal. By default, you can only call a 
routine that was previously declared in the program. The forward option tells the compiler that the proce- 
dure is declared past (forward) of the statement that calls it. 

For example, in the following program, procedure convert_degrees_to_radians is declared as for- 
ward. This allows procedure f ind_tangent to call procedure convert_degrees_to_radians even 
though f ind_tangent precedes it in the file. 
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PROGRAM forward_example; 

{This program demonstrates the FORWARD attribute.} 

Function convert_degrees_to_radians(d : real) : real; FORWARD; 

VAR 

degrees, tangent : real; 



Procedure f ind_tangent (IN degrees : real; 

out tangent : real) ; 
VAR 

radians : real ; 
BEGIN 

radians := convert_degrees_to_radians (degrees) ; 

tangent := sin(radians) / cos(radians) ; 
END; 



Function convert_degrees_to_radians ; { No parameters here! } 
CONST 

degree s_per_radi an = 57.2958; 
BEGIN 

convert_degrees_to_radians := (d / degrees_per_radian) ; 
END; 



BEGIN 

write ('Enter a value in degrees — '); 

readln( degrees) ; 

find_tangent( degrees, tangent); 

writeln('The tangent of ' , degrees: 6 :'3, ' is ' , tangent : 6: 3) ; 
END. 

This program is available on-line and is named forward_example. 

If it weren't for the forward option, the compiler would issue the following error: 

CONVERT_DEGREES_TO_RADIANS has not been declared in routine 
FIND_TANGENT 

Note that this program declares procedure convert_degrees_to_radians, its parameters, and the for- 
ward option in the declaration part of the main program, not in the routine heading. The routine heading 
declares procedure convert_degrees_to_radians without declaring parameters or options. You must 
declare routines this way when using the forward option. 

5.3.2 Extern — Extension 

Extern is an extension to standard Pascal. It tells the compiler that the routine is possibly defined outside 
of this source code file. (Chapter 7 details extern. See also define, which is also detailed in Chapter 7.) 

5.3.3 Internal — Extension 

Internal is an extension to standard Pascal. By default, all top-level routines defined in a module be- 
come global symbols. But if you declare the routine with the internal option, the compiler makes the rou- 
tine a local symbol. (Chapter 7 details internal.) 
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5.3.4 Variable — Extension 

Variable is an extension to standard Pascal. By default, you must pass the same number of arguments to 
a routine each time you call the routine. However, the variable option allows you to pass a variable num- 
ber of arguments to the routine. You might want to specify an argument count as the first parameter. 

For example, consider the following program. 

PROGRAM var iable_attribute_example ; 

{ This program demonstrates the routine attribute called VARIABLE which } 
{ allows you to pass a variable number of arguments to a routine. } 

VAR 

first_value, second_value : real; 
precision : real; 
answer : char; 



Procedure average (arg_count : integerlB; 
dl, d2 : real; 
p : real) ; 

options (VARIABLE) ; {We can pass up to four arguments.} 
VAR 

mean : real ; 
BEGIN 

mean := (dl + d2) / 2.0; 
if arg_count = 3 

then writelnCThe mean is ', mean: 4:1, ' to a precision of 0.1') 
else if (arg_count = 4) and (p = 0.01) 

then writelnCThe mean is ', mean:4:2, ' to a precision of .01') 
else if (arg_count = 4) and (p = 0.001) 

then writelnCThe mean is ', mean:4:3, ' to a precision of .001') 
else 

writelnC Improper argument count or precision'); 
END; 



BEGIN {main} 

writelnCThis program calculates the mean of two real numbers.'); 
writeCEnter the first value — '); readln(f irst_value) ; 
writeCEnter the second value — '); readln(second_value) ; 
write ('Do you want to specify a precision (enter y or n) — '); 
readln (answer) ; 
if answer = 'y' then 
begin 

write ('Please enter the precision (.01 or .001) — '); 
readln(precision) ; 

average (4, first_value, second_value, precision); 
end 
else average(3, first_value, second_value) ; 
END. 

This program is available on-line and is named variable_attribute_example. 
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5.3.5 Abnormal — Extension 

Abnormal is an extension to standard Pascal. It warns the compiler that a routine can cause an abnormal 
transfer of control. This option affects the way the compiler optimizes the calling routine, but does not af- 
fect the way the compiler optimizes the called routine (i.e., the routine that is declared abnormal). 

For example, the following use of abnormal causes the compiler to be careful about optimizing around 
any cleanup handler: 

FUNCTION pfm_$cleanup(clean_up_record) : status_$T; OPTIONS (ABNORMAL) ; 



5.3.6 Val_param — Extension 

Val_param is an extension to standard Pascal. By default, Pascal passes arguments by reference. How- 
ever, when you use the val_param option, you tell DOMAIN Pascal to pass arguments by value when 
possible. 

This option is useful when you are writing a routine that calls a DOMAIN C routine, since C passes all ar- 
guments by value. See Chapter 7 and the DOMAIN C Language Reference for more details. 

5.3.7 Nosave — Extension 

Nosave is an extension to standard Pascal. You should use it with a Pascal program call to an assembly 
language routine that doesn't follow the usual conventions for preserving these registers: 

• Data registers D2 through D7 

• Address registers A2 through A4 

• Floating-point registers FP2 through FP7 

Nosave indicates that the contents of these registers will not be saved when the assembly language routine 
finishes executing and returns to the Pascal program. However, the assembly language routine must always 
preserve register A5, which holds the pointer to the current stack area. It also must always preserve A6, 
which holds the address of the current stack frame. That is, the called routine must preserve A5 and A6 
even if you use nosave. 

5.3.8 Noreturn — Extension 

Noreturn is an extension to standard Pascal. This routine specifies an unconditional transfer of control; 
once a procedure or function with noreturn is called, control can never return to the caller. The routine 
marked noreturn is executed, and the program terminates. 

When you specify this keyword, the compiler may optimize the code it generates so that any return se- 
quence or stack adjustments after the call to the routine marked noreturn are eliminated as being un- 
reachable code. 

5.3.9 DO^return — Extension 

DO_return is an extension to standard Pascal. By default, a Pascal function returning the value of a 
pointer type variable puts that value in address register AO. DO_return causes the compiler to put the 
value in AO and data register DO. 

You should use dO_return if your Pascal function returns a pointer to a C or FORTRAN program, be- 
cause those languages expect to see function results in DO. The option has no effect on any Pascal routines 
that call the function. Those Pascal routines should still expect to see the function's result returned in AO. 

Note: The second character in this option is a zero, not a capital O. 
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5.4 Attribute List — Eittension 

As noted in the beginning of this chapter, you can declare an optional routine attribute Jist at the begin- 
ning of a routine heading. With this list, you can specify a nondefault section name for the code and data 
of a routine, or you can prevent the compiler from incorrectly optimizing nested internal procedures. The 
attributejist affects a routine body, while the routine _opt}ons affect the routine interface. 

The attributejist consists of one or more routine attributes enclosed by brackets. DOMAIN Pascal cur- 
rently supports the section routine attribute. 

5.4.1 Section — Extension 

By using the routine attribute section, you can specify a nondefault section name for the code and data in 
a routine. A "section" is a named contiguous area of an executing object. (Refer to the DOMAIN Binder 
and Librarian Reference for full details on sections.) By default, the compiler assigns code to the PROCE- 
DURES section and data to the DATA$ section. Thus, by default, all code from every routine in the pro- 
gram is assigned to PROCEDURES, and all static data from every routine in the program is assigned to 
DATA$. However, DOMAIN Pascal permits you to override the default of PROCEDURES and DATA$ 
on a routine-by-routine basis. (You can also override the defaults on a variable-by-variable or module- 
by-module basis.) This makes it possible to organize the runtime placement of routines so that logically 
related routines can share the same page of main memory and thus reduce page faults. Likewise, you can 
declare a rarely-called routine as being in a separate section from the frequently-called routines. 

To override the default sections, preface your routine heading with a phrase of the following format: 
[section ( codesect, datasect )] procedure . . . 
or 
[section ( codesect, datasect )] function ... 



Procedures and Functions 5-12 



o 



If you omit either the codesect or the datasect, the present default continues to take effect. For exam- 
ple, consider the following fragment: 

Program example; 

VAR Stat: integer; { In DATA$ } 

PROCEDURE top; {In PROCEDURES} 

VAR datl : static integer; { IN DATA$ } 

BEGIN 

{In PROCEDURES} 

END; 
[ SECTION (npc.npd)] FUNCTION foobarl : REAL; { In "npc" } 

VAR seed : static real; { In "npd" } 

BEGIN 

{In "npc" } 

END ; 

[ SECTION ( err or_rout_c, error_rout_d) ] PROCEDURE xxx; { In error_rout_c } 
VAR check : static integer32; { In error_rout_d } 

BEGIN 

... { Ii^ error_rout_c } 

END; 



FUNCTION regular : integer; { In PROCEDURES } 
VAR dat2 : static real; { In DATA$ } 
BEGIN 

{In PROCEDURES } 
END; 

[SECTION (npc, npd)] PROCEDURE foobar2; { In "npc" } 

VAR seedling : static real; { In "npd" } 

BEGIN 



{ In "npc" } 



END; 



BEGIN {main} 

{In PROCEDURES } 
END; 

Nested routines inherit the section definitions of their outer routine unless they specify their own section 
definitions. For example, if the foobarl function contained nested routines, DOMAIN Pascal defaults 
to placing their code and static data into the "npc" and "npd" sections respectively. 
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5.5 Recursion 

A recursive routine is a routine that calls itself. DOMAIN Pascal, like standard Pascal, supports recursive 
routines. The following example demonstrates a recursive method for calculating factorials: 

PROGRAM recursive_example; 

{ Demonstrates recursion by calculating a factorial. } 

VAR 

X, y : integer32; 

Function factorial (n : integer32) : integer32; 
BEGIN 

if n = 

then factorial := 1 

else factorial := n * factorial (n-1) ; {factorial calls itself.} 
END; 



BEGIN {main} 

writeln('This program finds the factorial of a specif ied integer .') ; 

write('Enter a positive integer (from to 16) — '); readln(x) ; 

y := factorial (x) ; 

writeln('The factorial of ', x:l, ' is ' , y:l); 
END. 
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This chapter describes how to produce an executable object file (i.e., finished program) from DOMAIN 
Pascal source code. Briefly, you create an executable object file in the following steps: 

1. Compile all source code files that make up the program. The compiler creates one object file for 
each source code file. 

2. If your program consists of multiple object files, you must bind them together with the DOMAIN 
binder utility. If your program consists of only one object file, there is no need to bind. The 
DOMAIN binder resolves external references; that is, it connects the different object files so that 
they can communicate with one another. Before binding, you may wish to package related object 
files into a library file with the DOMAIN librarian utility. 

3. You can either debug your program (with the DOMAIN language level debugger) or you can exe- 
cute it. 

Figure 6-1 illustrates this process. 

This chapter details the compiler and provides brief overviews of the binder, librarian, and debugger. 

In addition to this process, you can also use the DOMAIN Software Engineering Environment (DSEE) 
system to develop DOMAIN Pascal programs. This chapter provides a short overview of the DSEE sys- 
tem. Also, this chapter contains an introduction to DOMAIN/Dialogue, which is a product that simplifies 
the writing of user interfaces. 
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Figure 6-1. Steps in DOMAIN Pascai Program Development 
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You compile a file of DOMAIN Pascal source code by entering a command of the following format in any 
AEGIS or DOMAIN/IX Shell: 

$ pas source_pathname optioni ... optionN 

(Throughout this chapter we show commands with a variety of shell prompts. All commands work exactly 
the same in any shell, although, of course, you must remember that DOMAIN/IX shells are case-sensi- 
tive.) 

Source_pathname is the pathname of the source file you want to compile. You can compile only one 
source file at a time. In order to simplify your search for Pascal source programs, we recommend that 
source_pathname end with a .pas suffix, but if you use the suffix, you need not specify it in the compile 
command line. 

Your compile command line can contain one or more of the options listed in Table 6-1. Note that you 
cannot abbreviate these options. 

For example, consider the following three sample compile command lines, all of which compile source 
code file circles. pas: 

no options — > $ pas circles 

one option — > % pas circles -1 

four options — > $ PAS circles -map -exp -cond -cpu 460 



6.1.1 Compiler Output 

If there are no errors in the source code and the compilation proceeds normally, the compiler creates an 
object file in your current working directory. 

By default, DOMAIN Pascal gives the object file the same pathname as the source pathname, but with the 
.bin suffix. For example, if your source code is stored in file test, first, the following command line 
produces an object file called test.first.bin in your working directory. 

$ pas test. first 

There is one exception. If your source_pathname ends with .pas, the compiler replaces that suffix with 
.bin. So if your source code is stored in extratest .pas, the following command produces the object file 
extratest.bin in your working directory: 

$ pas extratest 

If you want the object file to have a nondefault name, use the -b pathname option. For example: 
$ PAS test -b //good/compilers/newtest 

The preceding command produces an object file called newtest.bin in directory //good/compilers. 



6.2 Compiler Options 



DOMAIN Pascal supports a variety of compiler options. Table 6-1 summarizes the options, while the fol- 
lowing sections describe all the options in detail. 
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Table 6-1. DOMAIN Pascal Compiler Options 



Option 


What It Causes the Compiler to Do 


■^ -align 


Align data on longword boundaries. Tliis helps the DNx60 
processors execute programs more efficiently. 


-nalign 


Suppress alignment. 


it -b pathname 


Generate a binary file (that is, an executable file) at 
program_name.bin or pathname.bin. 


-nb 


Suppress creation of binary file. 


-comchk 


Issue a warning if comments are not paired correctly. 


"A- -ncomchk 


Suppress checking for paired comments. 


-cond 


Compile lines prefixed with the %debug compiler directive. 


•A- -ncond 


Ignore lines prefixed with the %debug compiler directive. 


-config varl... varN 


Set special conditional compilation variables to true. 


-cpu id 


Generate code for a particular CPU. Values for id are: 
160, 460, 560, 660, 330, 90, 570, 580, 3000, any and 
peb. Any is the default. 


-ndb 


Suppress creating debugging information. The debugger 
cannot debug such a program. 


it -db 


Generate minimal debugging information. When you debug 
this program, you can set breakpoints, but you can't 
examine variables. 


-dbs 


Generate full runtime debug information and optimize the 
source code in the executable object file. (Implies -opt 3.) 


-dba 


Generate full runtime debug information but don't optimize 
the source code in the executable object file. 


-exp 


Generate assembly language lisdng (implies -1). 


it -nexp 


Suppress creating assembly language listing. 


-idlr dir1 . . . dirN 


Search for an include file in alternate directories. 


-ISO 


Compile the program using ISO/ANSI Standard Pascal rules 
for certain DOMAIN Pascal features that deviate from the 
standard. 


it -niso 


Compile the program using DOMAIN Pascal features. 


-1 pathname 


Generate a listing file at program_nanrie.lst or 
pathname. 1st. 


it -n\ 


Suppress creation of listing file. 



i^ denotes a default option. 
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Table 6-1. DOMAIN Pascal Compiler Options (continued) 



Option 


What It Causes the Compiler to Do 


-map 


Generate symbol table map (implies -1). 


i^ -nmap 


Suppress creation of symbol table map. 


^ -msgs 


Generate final error and warning count message. 


-nmsgs 


Suppress creating final error and warning count message. 


^ -opt n 


Optimize the code in the executable object to the nth level. 

n is an optional specifier that must be between and 3. If 

n is omitted, or the entire switch is omitted, optimize to level 3. 


-nopt 


Suppress optimizing the code in the executable object. This 
is an obsolete switch; use -opt instead. 


-peb 


Generate in-line code for the Performance Enhancement 
Board. This is an obsolete switch; use -cpu peb instead. 


■A- -npeb 


Suppress creating in-line code for Performance Enhancement 
Board. This is an obsolete switch; use -cpu any instead. 


-slib pathname 


Treat the input as in include file and produce a precompiled 
library of include files at program_name.plb or pa^/7name,plb. 


-subchk 


Generate extra subscript checking code in the executable 
object file. This code signals an error if a subscript is outside 
the declared range for the array. 


■A- -nsubchk 


Suppress subscript checking. 


"A- -warn 


Display warning messages. 


-nwarn 


Suppress warning messages. 


■At -xrs 


Save registers across a call to an external procedure or function. 


-nxrs 


Do not assume that calls to external routines have saved the 




registers. 



it denotes a default option. 

The following pages detail each of these options. 



6.2.1 -Align and -Nalign: Longword Alignment 

The -align option is the default. 

A standard part of DOMAIN software is the "loader," which loads sections of object modules into mem- 
ory at runtime. At SR8.0 and later releases, the loader loads each section on a longword boundary, en- 
suring longword alignment. Longword (32-bit) alignment can enhance performance on DNx60 worksta- 
tions and those with the M68020 microprocessor. By default, DOMAIN Pascal ensures longword align- 
ment on all workstations, but performance improvements are only seen on DNx60 workstations and those 
with the M68020 processor. To suppress longword alignment, use the -nalign option. 
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If your target workstation is a DNx60, recompile any object modules that were compiled with an early 
(pre-SR8.0) version of DOMAIN Pascal. 

6.2.2 "B and -Nb: Binary Output 

The -b option is the default. 



If you use the -b option, and if your source code compiles with no errors, DOMAIN Pascal creates an ob- 
ject file with the source pathname and the .bin suffix. If you specify a pathname as an argument to -b, 
then DOMAIN Pascal creates an object file at pathname.bin. 

If you use the -nb option, DOMAIN Pascal suppresses creating an object file. Consequently, compilation 
is faster than if you had used the -b option. Therefore, -nb can be useful when you want to check your 
source code for grammatical errors, but you don't want to execute it. 

Given that error-free DOMAIN Pascal source code is stored in file test. pas, here are some sample 
command lines: 

$ pas test 

{DOMAIN Pascal creates test. bin} 

% pas test -b 

{DOMAIN Pascal creates test. bin} 

$ pas test -b jest 

{DOMAIN Pascal creates jest. bin} 

B$ pas test -b jest. bin 

{DOMAIN Pascal creates jest. bin} 

% pas test -nb 

{DOMAIN Pascal doesn't create an object file} 



6.2.3 -Comchk and -Ncomchk: Comment Checking 

-Ncomchk is the default. 

If you compile with -ncomchk, the compiler does not check to see if you've balanced your comment de- 
limiters. Consequently, if you forget to close an open comment, the compiler will probably misinterpret a 
piece of code as part of a comment. If you compile with the -ncomchk option, you get the default results. 

If you compile with the -comchk option, the compiler checks to see that comment pairs are balanced; 
that is, that there are no extra left comment delimiters before a right comment delimiter. The left com- 
ment delimiters are {, (*, and "; the right comment delimiters are }, *), and ". If you compile with 
-comchk, the compiler returns a warning for every additional left comment delimiter. 

For example, the following fragment produces weird results because of an unclosed comment: 

{This comment should be closed, but I forgot to do it! 

x := 0; {We need this statement.} 

However, if you compile with -comchk, the compiler returns the following warning message: 

Warning: Unbalanced comment; another comment start found 
before end. 

Note that -comchk causes the compiler to look only for the same kind of left comment delimiter. For ex- 
ample, if you start the comment with (*, the compiler does not flag any extra {. 
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6.2.4 -Cond and -Ncond: Conditional Compilation 

-Ncond is the default. 

The -cond option invokes conditional compilation. If you compile with -cond, DOMAIN Pascal com- 
piles the lines of source code marked with the %debug directive. (Refer to the "Compiler Directives" list- 
ing in Chapter 4 for details on %debug.) 

If you compile with -ncond, DOMAIN Pascal treats the lines of source code marked with %debug as 
comments. 

You can simulate the action of this switch with the -config compiler option. For new program develop- 
ment, you should use the -config syntax, since this option is considered obsolete. 

6.2.5 -Config: Conditional Processing 

Use the -config option to set conditional variables to true. (Refer to the "Compiler Directives" listing of 
Chapter 4 for details on the conditional variables.) 

You declare these conditional variables with the %var compiler directive. By default, their value is false. 
You can set their value to true with the %enable directive (described in the "Compiler Directives" listing) 
or with the -config option. The format of the -config option is 

-config var1 ... varN 

where var must be a conditional variable declared with %var. For example, consider the following pro- 
gram: 

PROGRAM conf ig_example; 

{ You can use this program to experiment with the } 
{ -CONFIG compiler option. } 

VAR 

X, y, z : integerie := 0; 



BEGIN 

writeln('The start of the program.'); 

%VAR first, second, third 
%IF first %THEN 

X := 5 ; 

writeln(x,y, z) ; 
%ENDIF 



%IF second %THEN 

y := 10; 

writeln(x,y, z) ; 
%ENDIF 



%IF third %THEN 

z := 15; 

writeln(x,y , z) ; 
%ENDIF 

writeln('The end of the program'); 

END. 
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This program is available on-line and is named conf ig_example. 

First, notice what happens when you compile without -config. 

$ pas conf ig_example 

No errors, no warnings, Pascal Rev n.nn 

$ config_example.bin 

The start of the program. 

The end of the program 

Now, use the -config option to set conditional variables first and third to true. Here's what happens: 

$ pas conf ig_example -config first third 
No errors, no warnings, Pascal Rev n.nn 
$ config_example.bin 
The start of the program. 

5 

5 15 
The end of the program 

To simulate the action of the -cond compiler switch, enclose the section of code you want conditionally 
compiled in an %if conf ig_variable %then structure. Then use -config to set conf ig_variable to 
true when you want to compile that section of code. 

6.2.6 -Cpu: Target Workstation Selection 

Use the -cpu option to select the target workstations that the compiled program can run on. If you 
choose an appropriate target workstation, your program might run faster; however, if you choose an inap- 
propriate target workstation, the runtime system will issue an error message telling you that the program 
cannot execute on this workstation. DOMAIN Pascal can generate code in four possible modes: 

• Code that will run on a DSP160, DN460, or DN660 workstation 

• Code that will run on a workstation with the M68020 microprocessor and the M68881 floating- 
point co-processor 

• Code that will run on a workstation with a Performance Enhancement Board (PEB) 

• Code that will run on any Apollo workstation 

You select the code generation mode through the argument that you specify immediately after -cpu. Ta- 
ble 6-2 shows the possible arguments and the code generation mode that they select. 
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Table 6-2. Arguments to the -cpu Option 



-CpU 160 

-Cpu 460 
-cpu 660 



-cpu 90 
-cpu 330 
-cpu 560 
-cpu 570 
-cpu 580 
-cpu 3000 



-cpu peb 



-cpu any 



Generates code for the DSP160, DN460, and 
DN660 workstations. 



Generates code for workstations with a 
M68020 processor and a M68881 floating- 
-^ point unit (includes the DSP90, DN330, 
DN560, DN570, DN580, and DN3000). 



Generates code for workstations with a PEB 
(includes the DNIOO, DN320, DN400, and the 
DN600, when equipped with an optional PEB), 



-^^ Generates code for any workstation. 



o 



Note that there are many possible arguments to -cpu; however, many of them are synonyms. For exam- 
ple, -cpu 330 produces exactly the same code as -cpu 560. 

The advantage of compiling with -cpu any is that the resulting program can run on any Apollo worksta- 
tion. This is how Apollo compiles the programs that appear in your loom or Ibin directories, -cpu any is 
the default. 

The advantage of the processor-specific code generation modes is that the compiler generates code opti- 
mized for that particular processor, which makes the programs so compiled run faster. The advantage is 
seen mostly in programs that make heavy use of floating-point. Programs that make heavy use of 32-bit 
integer multiply and divide might also show significant improvement. 
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6.2.7 -Db, -Ndb, -Dba, -Dbs: Debugger Preparation 

-Db is the default. 

Use these switches to prepare the compiled file for debugging by the DOMAIN Language Level Debugger 
(debug). DOMAIN Pascal stores the debugger preparation information within the executable object file, 
so in general, the more debugger information you request, the longer your executable object file. 

If you use the -ndb option, the compiler puts no debugger preparation information into the .bin file. If 
you try to debug such a .bin file with debug, the system reports the following error message: 

? (debug) The target program has no debugging information. 

If you use the -db option, the compiler puts minimal debugger preparation information into the .bin file. 
This preparation is enough to enter the debugger and set breakpoints, but not enough to access symbols 
(e.g., variables and constants). 

If you use the -dbs option, the compiler puts full debugger preparation information into the .bin file. This 
preparation allows you to set breakpoints and access symbols. When you use the -dbs option, the compil- 
er sets the -opt option. (You can override this with the -nopt or -opt option.) 

The -dba option is identical to the -dbs option except that when you use the -dba option, the compiler 
sets the -nopt option (even if you specify -opt) . 

For more complete details on these four options, see the DOMAIN Language Level Debugger Reference. 
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6.2.8 -Exp and -Nexp: Expanded Listing Fiie 

-Nexp is the default. 

If you compile with the -exp option, the compiler generates an expanded listing file. This listing file con- 
tains a representation of the generated assembly language code interleaved with the source code. 

If you compile with the -nexp option, the compiler does not generate a listing file (unless you use the 
-map or -I options). 

6.2.9 -idir: Searcli Alternate Directories For Include Files 

The -idir option specifies the directories in which the compiler should search for include files if you spec- 
ify such files using relative, rather than absolute, pathnames. (Absolute pathnames begin with a slash (/), 
double slash (//), tilde (-), or period (.).) 

Without the -idir option, DOMAIN Pascal searches for include files in the current working directory. For 
example, if your working directory is //nord/minn and your program includes this directive: 

%INCLUDE 'mytypes. ins. pas' 

DOMAIN Pascal searches for that relative pathname at //nord/minn/mytypes. ins.pas. However, 
when you use -idir, the compiler first searches for the file in your working directory, and if it doesn't find 
the file, it looks in the directories you list as -idir arguments. When it finds the include file, the search 
ends. This capability is useful if you have include files stored on multiple nodes or in multiple directories 
on your node. 

For example, consider the following compile command line: 

$ pas test -idir //ouest/hawaii 

This command line causes the compiler to search for mytypes. ins.pas at //ouest/hawaii/ 
mytypes. ins.pas if it can't find //nord/minn/mytypes. ins.pas. 

You can put up to 63 pathnames following. an -idir option. Separate each pathname with a space. 

6.2.10 -ISO and -NISO: Standard Pascal 

The -niso option is the default. 

DOMAIN Pascal implements a few features differently than ISO standard Pascal. The -iso switch lets you 
tell the compiler to use standard Pascal rules for some of these features. 

If you use the option, the compiler flags as an error a goto statement that jumps into an if/then/else state- 
ment. For example, the following is incorrect under the -iso switch: 

label 

bad_jump; 

if num > then 

{statement} 
else 
bad_jump: {WRONG} 

{next statement} ; 

goto bad_jump; 
This structure is permitted, although not encouraged, under DOMAIN Pascal. 
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Compiling with -iso also has an effect on comments. With it, comment delimiters no longer are required 
to match up, which means that the following becomes valid: 

{ This comment starts with one type of delimiter and ends with another. *) 

-Iso also tells the compiler to use ISO rules with the mod operator. DOMAIN Pascal implements mod us- 
ing the Jensen and Wirth semantics; see the mod listing in Chapter 4 for details. 

6.2.11 -L and -NL: Listing Files 

The -nl option is the default. 

The -1 option creates a listing file. The listing file contains the following: 

® The source code complete with line numbers. Note that line numbers start at 1 and move up by 1 
(even if there is no code at a particular line in the source code) . Further note that lines in an in- 
clude file are numbered separately. 

© Compilation statistics. 

o A section summary. 

o A count of error messages produced during the compilation. 

The format for the -1 option is 

-I pathname 

If you specify a pathname following -I, the compiler creates the listing file at pathname.lst. If you omit a 
pathname, the compiler creates the listing file with the same name as the source file. If the source file 
name includes the .pas suffix, .1st replaces it. If the source file name does not include .pas, .1st is ap- 
pended to the end of the name. 

The -nl option suppresses the creation of the listing file. (See also -map and -exp.) 

6.2.12 -IVIap and -Nmap: Symbol Map 

The -nmap option is the default. 

If you use the -map option, DOMAIN Pascal creates a map file. A map file contains everything in the 
listing file (-1) plus a special symbolic map. The special symbolic map consists of two sections. 

The first section describes all the routines in the compiled file; for example, here is a sample first section: 

001 EXAMPLE Program (Proc = 00005A,Ecb = 000030, Stack Size = 0) 

002 DO_NOTHING Procedure (Proc = 000000, Ecb = 000020, Stack Size = 8) 

003 DO_SOMETHING Function (Proc = 00003E,Ecb = OOOOOC, Stack Size = 8) 

The preceding data tells you that the compiled file contains a main program (called example), a proce- 
dure (called do_nothing), and a function (called do_something). There are three pieces of data inside 
each pair of parentheses. The first piece tells you the start address in hexadecimal bytes from the start of 
a section. The second piece is the offset (in bytes) of the routine entry point. The third piece is the size 
(in hexadecimal bytes) of the stack. The second and third pieces of data probably are of interest to sys- 
tems programmers only. 

For example, in the sample first section, the starting address of the main program was offset 16#5A bytes 
from the beginning of the PROCEDURES section. The offset relative to the beginning of the data section 
of the main program's routine entry point is 16#30 bytes. Its stack size is bytes. 
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The second section lists all the variables, types, and constants in the compiled program. For example, 
here is a sample second section: 

002 A Var(-000008/S) : CHAR 

002 A2 Var(-000006/S) : CHAR . 

001 BI Type= ARRAY [1.. 2] OF INTEGER16 

001 BILBOA Const='The rain' 

001 Q Var(+000002/MICROS) : CHAR 

001 R5 Var(+000004/MICROS) : DOUBLE 

001 S Var(+00000C/MICROS) : BI 

001 X Var(/MICROS) : INTEGER16 

001 Y Var(/D); INTEGER16 

003 Z Var(+000010/S) : INTEGER16 

The map tells you, for example, that R5 is a Var (variable) that is stored +000004 bytes from the begin- 
ning of the MICROS section. It also tells you that R5 has the data type double. Also, note that /D means 
the DATA$ section, and /S means the stack. 

If you specify -nmap, DOMAIN Pascal does not create the special symbol map. 

6.2.13 -Msgs and -Nmsgs: Informational Messages 

The -msgs option is the default. 

If you use the -msgs option, the compiler produces a final compilation report having the following format: 
XX errors, YY warnings, Pascal Rev n.nn 

If you use -nmsgs, the compiler suppresses this final report. 

6.2.14 -Opt and -Nopt: Optimized Code 

The -opt option is the default. 

If you use the -opt option, the compiler optimizes the generated code. If you use the Debugger (de- 
scribed in the "Debug" section of this chapter) to debug an optimized program, you may run into prob- 
lems because of a fuzzy mapping between source code and generated machine code. See the DOMAIN 
Language Level Debugger Reference for more details. 

As part of the -opt compiler option, you can specify a predefined level of optimization. The syntax is: 

-Opt n 

where n is an integer between and 3. The higher the number, the more optimization that will be done. If 
you omit n or omit the -opt switch alltogether, the compiler defaults to level 3. If you specify level 0, that 
is equivalent to -nopt and -nopt tells the compiler not to optimize the generated code. 

Following is a brief description of the optimizations you get at each level between 1 and 3. For a detailed 
discussion of compiler optimization techniques, consult a general compiler textbook. 

-opt 1 Perform limited global common subexpressions and dead code elimination. Transform inte- 
ger multiplication by a constant into shift and add operations, where appropriate. Perform 
simple tree transformations, and possibly merge assignment statements. 

-opt 2 Perform reaching definitions and global constant folding. (Also includes all of -opt 1.) 

When the compiler examines code for reaching definitions, it determines whether or not a 
variable is assigned a value before it uses the value it was last assigned. If there are multiple 
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assignments without intervening uses, the compiler eliminates any unused assignments. For 
example: 

X := 1; {Assignment eliminated because the compiler } 

{reaches the next assignment of x before this} 
{value is used. } 

if a < b then 

X : = a 
else 

X := b; 

The constant folding that the compiler performs at this level of -opt means that constants 
are evaluated at compiletime and replaced with their computed values. For instance, 
2*3.14159 is replaced by 6.28318. Likewise, expressions which will always evaluate to 
true or false are constant folded and conditional code around them eliminated. For exam- 
ple: 

VAR 

small_range : 0..10; 

if small_range < then {small_range can never be less than } 

{statements}; {so the compiler constant folds the if } 

{expression to false, and generates no } 

{code for "statements". } 

-opt 3 Perform live analysis of local variables, redundant assignment statement elimination, global 
register allocation, and instruction reordering. Also, remove invariant arithmetic expressions 
from loops, and use the common subexpression (CSE) algorithm to search exhaustively for 
common subexpressions. -Opt 1 makes a limited search for CSEs. (Also includes all of 
-opt 1 and 2.) 

Live analysis of local variables involves determining whether the value assigned to a variable 
in a routine can then be used in that routine. If it can, the variable is considered live; other- 
wise, it is dead, and there's no need to keep the value in a register. Making optimum use of 
registers speeds program execution. 

Because the compiler does more work at each higher level of optimization, it often takes longer to compile 
at those higher levels. Therefore, if you are just developing your program, and are compiling to find syntax 
errors, you might want to compile using a low number. Then, when the program is ready, you can compile 
with a higher number and so take advantage of all the optimizations. 

6.2.15 -Peb and -Npeb: Performance Enhancement 

-Npeb is the default. 

The -peb option is identical to the -cpu peb option described earlier in this chapter. 

If you specify -npeb, DOMAIN Pascal does not generate code optimized for the PEB. 

NOTE: For SR8 and later revisions of DOMAIN Pascal, use the -cpu peb option in- 
stead of the -peb option. We do not guarantee support for -peb and -npeb af- 
ter SR9. 



6.2.16 -Slib: Precompilation of Include Files 

Because there usually are a number of common tasks most programs must perform, DOMAIN Pascal pro- 
grams often contain include files. Frequently used files include Isys tins Ibase. ins. pas and 
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Isyslinslerror.ins.pas. But it would be time-consuming to compile such files every time a program in which 
they were included was compiled. The -slib option allows you to precompile an include file. Then when 
you insert that file in your program with the %slibrary compiler directive (described in Chapter 4) , the 
compiler knows that the file already has been compiled and doesn't bother to parse it again. 

The syntax for -slib is: 

-sllb pathname 

If you specify a pathname following -slib, the compiler creates the precompiled file at pathname. \i\h. 
When no pathname is present, and the name of the input program file ends in .pas, -slib replaces that 
ending with .plb and creates the file at program_name.plb. If the input filename does not end in .pas, 
-slib appends .plb to the name. 

For example, suppose you want to precompile the file mystuf f . ins . pas. This command precompiles it 
and puts the result in mystuf f. ins .plb. 

% pas mystuf f. ins -slib 

There are some restrictions on what files can contain if they are going to be precompiled. They can only 
contain declarations; they may not contain routine bodies and may not declare variables that would result 
in the allocation of storage in the default data section, DATA$. This means the declarations must either 
put variables into a named section, or must use the extern variable allocation clause. See Chapter 3 for 
more information about named sections, and Chapter 7 for details on extern. 

Any conditional compilation directives in the files you slib are executed during precompilation. 

If you have several files that you want to combine into a single precompiled library, you can create a con- 
tainer file with a series of %include directives. For example, to combine some frequently used include 
files into the single precompiled library /sys/ins/domain.plb, you can create a file systemstuff .pas 
which contains the following: 

{ Files we often use together. } 

%include ' /sys/ins/base . ins . pas' ; 
%include '/sys/ins/error. ins .pas' ; 
%include ' /sys/ins/vf mt . ins . pas' ; 

Then use -slib as follows to create the precompiled, combined library. 
$ pas systemstuff -slib /sys/ins/domain 

You can include the new precompiled library in any program. For example: 

PROGRAM errortest; 

%SLIBRARY '/sys/ins/domain.plb' ; 

BEGIN 



END. 



6.2.17 -Subchk and -Nsubchk: Subscript Checking 

-Nsubchk is the default. 

If you use -subchk, the compiler generates additional code at every subscript to check that the subscript is 
within the declared range of the array. This extra code slows your program's execution speed. 
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If you use -nsubchk, the compiler does not generate this extra code. 

6.2.18 -Warn and -Nwarn: Warning Messages 

-Warn is the default. 

If you use -warn, the compiler reports all warning messages. 

If you use -nwarn, the compiler suppresses reporting warning messages (though it does report on the total 
number of warnings that would have been issued) . 

We strongly recommend that you avoid using -nwarn. Warnings are issued when the compiler believes it 
knows what the program meant to say, and so thinks it can still generate the right code. But the compiler 
isn't always right, and if you use -nwarn, you won't see the messages that could indicate where the com- 
piler got confused. 

6.2.19 -Xrs and -Nxrs: Register Saving 

-Xrs is the default. 

This option controls whether the compiler believes that the contents of registers are saved across a call to 
an external routine or a call through a procedure-ptr or function-ptr variable. If you use -xrs, the com- 
piler assumes registers are saved, while if you use -nxrs, it does not assume registers are saved. 

In either case, the compiler always saves register contents when it enters a routine and restores those con- 
tents to the registers when it exits the routine. 

The primary use for this option is when your program contains calls back to subprograms compiled with 
pre-SR9.5 compilers. In such a case, you should isolate the portion of your new code that calls the older 
subprograms, and separately compile that new code with the -nxrs option. 



6.3 Binding 



If your program consists of more than one separately-compiled object file, you must use the binder. If 
your program consists of only one object file, you do not have to use the binder (though using it causes no 
harm) . 

Use the binder utility to combine an object file with other object files to which it refers. The main purpose 
of the binder is to resolve external references. An external reference is a symbol (i.e., variable, constant, 
or routine) that you refer to in one object file and define in another. To invoke the binder, enter a com- 
mand line of the following format: 

$ bind pathnamel ...paf/7na/DeA/ optioni ...optionN 

A pathname must be the pathname of an object file (created by a compiler) or a library file (created by 
the librarian). Your bind command line must contain at least one pathname. 

Your bind command line can also contain zero or more binder options, the most important of which is -b. 
If you use the -b option, the binder generates an executable object file. If you forget to use the -b op- 
tion, the binder won't generate an output object file. 

For example, suppose you write a program consisting of three source code files — TEST_MAIN . PAS , 
MODI. PAS, and M0D2.PAS. To compile the source code, you issue the following three commands: 



0$ pas TEST_MAIN 
$ pas MODI 
$ pas M0D2 
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The DOMAIN Pascal compiler creates TEST_MAIN.BIN, MODI. BIN, and M0D2.BIN. To create an exe- 
cutable object, bind the three together with a command like the following: 

$ bind TEST_MAIN.BIN MODI. BIN M0D2.BIN -B T3 

This command creates an executable object file in filename T3. 

Refer to the DOMAIN Binder and Librarian Reference for a complete discussion of the binder and its op- 
tions. 



6.4 Using Libraries 



As mentioned in the previous section, you can put library files on the bind command line. You create li- 
brary files with the DOMAIN Librarian utility which is detailed in the DOMAIN Binder and Librarian Ref- 
erence. 

Actually, the DOMAIN system supports several different kinds of libraries. In addition to library files, the 
DOMAIN system also supports user-defined installed libraries, system-defined installed libraries, system- 
defined global libraries, and the user-defined global library. All are detailed in the DOMAIN Binder and 
Librarian Reference. 

On some operating systems, you must bind language libraries and system libraries with your own object 
files. On the DOMAIN system, there is no need to do this as the loader binds them autorriatically when 
you execute the program. 

6.5 Executing tiie Program 

To execute a program, simply enter its pathname. For example, to execute program T3, just enter 
$ T3 

The operating system searches for a file named T3 according to its usual search rules, then calls the 
loader utility. The loader utility is user transparent. It binds unresolved external symbols in your executa- 
ble object file with global symbols in the language and system libraries. Then, it executes the program. 

By default, standard input and standard output for the program are directed to the keyboard and display. 
You can redirect these files by using the Shell's redirection notation (described in the DOMAIN System 
User's Guide). For example, to redirect standard input when you invoke T3, type 

$ T3 <TRADING_DATA 

The character "<" redirects standard input to the file TRADING_DATA. You can redirect standard output 
in a similar fashion, for example: 

$ T3 >results 
This command uses the character ">" to redirect standard output for T3 to the file results. 



6.6 Debugging tiie Program 



The DOMAIN system supports three tools to help you debug a DOMAIN Pascal program — debug, tb, 
and crefpas. 

6.6.1 Debug 

You can use the language level debugger (debug) utility to debug your program. This utility allows you to 
set breakpoints so you can step through a program examining variables and finding bugs. In order to fully 
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debug your program, you must use the -dba or -dbs options when you compile. (We recommend -dbs.) 
You don't have to use any special options when you bind. To invoke the debugger, simply enter a com- 
mand of the format: 

$ debug object_file 

where object_file is the name of an executable object file. For example: 
$ debug T3 

The DOMAIN Language Level Debugger Reference details the debugger. 

6.6.2 Traceback (tb) 

If you execute the program and the system reports an error, you can use the tb (traceback) utility to find 
out what routine triggered the error. To invoke tb, enter the command 

$ tb 

immediately after a faulty execution of the program. 

For example, suppose you invoke T3, encounter an error, and then invoke tb. The whole sequence might 
look like the following: 

$ 73 

Enter a real number — x 

?(sh) "./tl.bin" - invalid read data (library/Pascal) 

In routine "ERROR" line 366. 

$ TB 

invalid read data (from library / Pascal) 

In routine "ERROR" line 366 

Called from "PAS_$READ" line 1602 

Called from "SAMPLE" line 11 

Tb first reports the error, which in this case is 

invalid read data (from library / Pascal) 

Then, tb shows the chain of calls leading from the routine in which the error occurred all the way back to 
the main program block. For example, routine ERROR reported the error. ERROR was called by the 
PAS_$READ routine. And, PAS_$READ was called by line 11 of the SAMPLE routine. Since ERROR and 
PAS_$READ are system routines, it is probable that the error occurred at line 11 of the SAMPLE routine. 

The DOMAIN System Command Reference details the tb utility. 

6.6.3 Crefpas 

Crefpas produces a cross-reference list of the identifiers (other than DOMAIN Pascal reserved words) 
used in a DOMAIN Pascal source program. The listing is in four parts, each part beginning on a new page. 
The first part lists the program, with line numbers added. The second part lists begin, repeat, and case 
statements, with their associated ending statement lines identified. The third part lists begin, repeat, and 
case statements and their associated ending statements, but with the ending statements listed first. The 
fourth part lists all identifiers (other than DOMAIN Pascal reserved words) and the line numbers on 
which they appear. Appearances in declaration sections are flagged with a 'D'. 

Insert files are not included in the cross-reference listing. 
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To invoke crefpas, enter a command of the following format: 
% crefpas pathname -/ listjile 

For pathname, enter the Pascal source file to be cross-referenced. 

By default, crefpas sends output to pathname. 1st. If pathname ends in .pas, then .1st replaces .pas. 
However, you can redirect the output with the -/ Ustjile option. (Crefpas automatically appends the .1st 
suffix to listjile if it is absent.) 

Now consider an example. Suppose a program stored in source code file TEST. PAS has a begin state- 
ment on line 20, a repeat statement on line 25, a case statement on line 30, and the associated ending 
statements on lines 50, 40, and 35, respectively. The command 

% crefpas TEST -1 list_it 

produces the following analysis in the file list_it . 1st: 
Part 1 

(The normal program listing, with line numbers added.) 

Part 2 

20>B>50 , #####25>R>40#####30>C>35 

Part 3 

35<C<30#####40<R<25#####50<B<20 

Part 4 

(The list of all identifiers with their line numbers.) 

6.7 The DSEE Product 

The DSEE (DOMAIN Software Engineering Environment) package is a support environment for software 
development. DSEE helps engineers develop, manage, and maintain software projects; it is especially use- 
ful for large-scale projects involving a number of modules and developers. You can use DSEE for: 

• Source code and documentation storage and control 

• Audit trails 

• Release and Engineering Change Order (ECO) control 

• Project histories 

• Dependency tracking 

• System building 

This chapter described a traditional program development cycle (i.e., compiling, building libraries, bind- 
ing, debugging); the DSEE product provides some sophisticated enhancements to this cycle. For informa- 
tion on the optional DSEE product, see the DOMAIN Software Engineering Environment (DSEE) Refer- 
ence. 
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6.8 DOMAIN/Dialogue 



DOMAIN/Dialogue is a tool for defining the interface to an application program and specifying how the 
interface should be presented to users of the application. The primary advantage of DOMAIN/Dialogue is 
that it lets you create interfaces separately from the application code. For the user interface, 
DOMAIN/Dialogue lets you: 

o Focus more time and attention on the interface than is possible when it is intertwined with the ap- 
plication code. 

o Develop modular interfaces that are consistent in design from application to application because 
they are developed with the same set of tools. 

o Use an iterative approach to interface design. A program's user interface can be rapidly 
prototyped and modified without affecting the application code. Successive testing and refinement 
are relatively easy, making it possible to fine-tune the interface. 

• Develop multiple user interfaces to a program, allowing users to choose a style of interaction with 
which they feel most comfortable. 

For the application, DOMAIN/Dialogue enables you to: 

• Write less code. Because DOMAIN/Dialogue handles interactions with the user, the application 
designer does not have to provide the code for doing so. 

• Achieve a modular approach to writing code that promotes phased and iterative application devel- 
opment independent of user interface development. 

For details about DOMAIN/Dialogue, see the DOMAIN/Dialogue User's Guide. 
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This chapter describes how to create and call Pascal modules and how to call FORTRAN and C routines 
from a DOMAIN Pascal program. Briefly, this chapter covers the following topics: 

• Creating Pascal modules 

• Accessing a Pascal variable or routine stored in a separately compiled module 

• Accessing FORTRAN routines from a Pascal program 

• Accessing C routines from a Pascal program 

7.1 Modules 

It is usually a good idea to break a large Pascal program into several separately compiled modules. After 
you compile each module, you can bind the resulting object files into one executable object file. (See 
Chapter 6 for details about binding.) 

Every program must consist of one main program and zero or more modules. Chapter 2 contains a de- 
scription of the main program's format. A main program must begin with the keyword program. A mod- 
ule begins with the keyword module. It takes the format shown in Figure 7-1. 
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module heading 
declarations 
routines 



■> 



Define part 
Label decl part 
Const decl part 
Type decl part 
Var decl part 



routine heading 
declarations — 
nested routines 

Begin 

action 
End; 



■>- 



Figure 7-1 . Format of a Module 

At runtime, the start address of the program is the first statement in the main routine of the main pro- 
gram. 

The format of a module is very similar to the format of the main program shown in Figure 2-1, The differ- 
ences between the formats are: 

© A module takes a module heading rather than a program heading. (See the next section for a de- 
scription of the module heading.) 

• A module can contain zero or more routines; each routine must have a name. That is, the main 
program always contains one main (unnamed) routine, but a module must consist of named rou- 
tines only. 

• The declarations part of a module may contain a define part. The "Method 2" section of this 
chapter describes the define part. 



7,1.1 Module Heading 

The module heading is similar to a program heading except that it starts with the keyword module instead 
of program, and that it cannot take a fiiejist. Therefore, the module heading takes the following format: 



module nanne, code section name, data section name; 



Name must be an identifier. The name you pick has no effect on the module. 

Code_section_name and data_section_name are optional elements of the module heading. Use them to 
specify nondefault section names for the code and data in the module. A section is a named contiguous 
area of memory that shares the same attributes. (See the DOMAIN Binder and Librarian Reference for 
details on sections and attributes.) By default, DOMAIN Pascal assigns all the code in your module to the 
PROCEDURES section and all the data in your module to the DATA$ section. To assign your code and 
data to nondefault sections, specify a code_section_name and a data_section_name. 

Chapter 2 described the format of a main program, this chapter describes the format of a module, and 
Chapter 6 detailed the method for compiling and binding modules and main programs. The following sec- 
tions explain how to write your source code so that the separately compiled units can communicate with 
one another. 
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7.2 Accessing a Variable Stored in Another Pascai 
Module 

DOMAIN Pascal provides four methods for accessing the value of a variable stored in a separately com- 
piled file. The trick to the first three methods is using the correct variable_allocation_clause when declar- 
ing variables. The optional variable_allocation_clause precedes the data type in a var declaration part as 
shown below: 

var (section _name) 

identifierjisti : variable_allocation_clause data_type1 ; 



identifierJistN : variable_allocation_clauseN dataJypeN; 

For variable_allocation_clause, you must enter one of the following three identifiers: 

o Define — tells Pascal to allocate the variable in a static data area and make its name externally 
accessible. 

o Extern — tells Pascal to not allocate the variable because it is possibly allocated in a separately 
compiled module or program. 

o Static — tells Pascal to allocate the variable in a static data area and keep its name local to this 
module or program. Use the static clause when a variable needs to retain its value from one exe- 
cution of a routine to the next. For example, the following fragment declares x as a statically al- 
located variable: 

VAR 

X : static integerl6; 

After the execution of the routine in which x is declared, x still retains its value. 

The following sections demonstrate three of the four methods for accessing a variable stored in another 
DOMAIN Pascal module. 

7.2.1 Method 1 

The following fragments demonstrate the first method for accessing an externally stored variable: 

program Math; module Sub2; 

var var 

X : EXTERN integerlB; x : DEFINE integerl6 := 8; 

Procedure twoa; 
BEGIN BEGIN 

writeln(x) ; {access x} writeln(x); {access x} 

END . END ; 

This method uses the variable allocation clauses extern and define to make the value of x available to 
both Math and Sub2. The extern clause in Math tells the compiler that variable x is probably defined 
somewhere outside of Math. The define clause in Sub2 tells the compiler that x is defined within Sub2; 
the ":= 8" tells the compiler to initialize x to 8. If x is not initialized, the writeln(x) statement gener- 
ates totally undefined output. 

When you bind, the binder matches the external reference to x in program Math with the global symbol x 
defined in module Sub2. Note that you can specify x as an extern in as many modules as you want; how- 
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ever, you should only define x in one module. If you define x in more than one module, the binder re- 
ports an error. 

7.2.2 Method 2 

The following fragments demonstrate the second method for accessing an externally stored variable: 

program Math; module Sub2; 

var var 

X : EXTERN integerl6; x : EXTERN integerlG; 

DEFINE 

X ;= 8; 

Procedure twoa; 
BEGIN BEGIN 

writeln(x) ; {access x} writeln(x) ; {access x} 

END . END ; 

Method 2 introduces the define statement. The define statement is similar to the define variable alloca- 
tion clause. The define statement in Sub 2 serves two purposes. First, it tells the compiler that x is de- 
fined in module Sub2. Second, it tells the compiler that the initial value of x is 8. 

The define statement takes the following syntax: 

define 

variablel ;= initial valueV, 



variableN := initial j/alueN; ,^ 

\ 
Notice that the initialj/alue is optional. If you do not provide an initial _yalue, the value of variable is to- 
tally undefined; that is, there is no way to predict what the variable's initial value will be. 

NOTE: Order is crucial. If you use Method 2, the var declaration part must precede the 
define statement. (However, see Method 3 later in this chapter.) 

Putting a define statement in module Sub2 may appear contradictory at first. After all, a define statement 
means "it's defined here" and an extern clause implies "it's defined somewhere else." It seems strange, 
but this apparent contradiction can actually simplify programming. For example, suppose the extern /-^ 

clause is stored in an %include file. When writing an %include file, there is no way to tell where it's going i 

to end up. It may just end up in a file with a matching define statement. If it does, no harm is done. 

7.2.2.1 Initializing Extern Variable Arrays 

The "Initializing Variable Arrays" section in Chapter 3 contained a lengthy section on initializing variable 
arrays. The following paragraphs explain how to initialize an array variable that has the extern variable 
allocation clause. 

Ordinarily the -subchk compiler option causes the compiler to generate code to check that subscripts are 
within the defined range of an array. However, if you do not specify initialization data for an extern array 
variable, the compiler does not generate this extra code when you compile with -subchk. The compiler 
cannot check subscripts because the upper bound is not known. If there is data initialization with the ex- 
tern declaration, the data is ignored until the variable is defined in a file. However, since the upper bound 
is known, the compiler can perform subscript checking. 

When you let the compiler determine the upper bound of the array, make sure that variable declarations 

do not share the same type declaration. If they do, the first data initialization for that variable sets the size f^ 

for all other variables. All initialized variables are then checked against that size, just as if you had speci- \ 

fied a constant upper bound. 
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For example, consider the following fragment: 
VAR 



tablel, table2 

tables 

table4 



EXTERN array [1 
EXTERN array [1 



*] of char; 
*] of char; 



EXTERN array[l..*] of char; 



DEFINE 
tablel 
table2 
tables 
table4 



'This table sets the size,'; 
'so this table will be truncated'; 
'But separate variable declarations' ; 
'solve the problem.'; 



o 



In the preceding example, variables tablel and table2 share the same anonymous type declaration. 
Since tablel precedes table2, DOMAIN Pascal uses the defined size of tablel to set the size for ta- 
ble2. In this case, tablel is a 26-character string. Therefore, the compiler truncates the string "so 
this table will be truncated" to its first 26 characters. Variables tableS and table4 are de- 
clared separately, so their initializations do not affect each other. 

For arrays with a base type of char, DOMAIN Pascal issues a warning message when it encounters trunca- 
tion (as for table2). However, if the array has a base type other than char, the compiler issues an error 
message when it encounters truncation. 



o 



7.2.3 Method 3 

The following fragments demonstrate the third method for accessing an externally stored variable: 



program Math; 
VAR 

X : EXTERN integerlB; 



BEGIN 

writeln(x) ; {access x} 
END. 



module Sub2; 
DEFINE 

x; 

VAR 

X : EXTERN integerl6 := 8; 

Procedure twoa; 
BEGIN 

writeln(x) ; {access x} 
END; 



o 



Method 3 is similar to Method 2 except that the initialization (:= 8) is done in the var declaration part 
rather than in the define statement. 

NOTE: Order is crucial. If you use Method 3, the define statement must precede the 
var declaration part. 
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7.2.4 Method 4 

The following fragment demonstrates this fourth method for accessing an externally stored variable: 



Program Math; 




Module Sub2; 


VAR (my_sec) 




VAR (my_sec) 


X : integerie := 5; 




X : integerie ; 


y : real := 6.2; 




y : real; 


q : array[1..3] of char : 


= '-cat' ; 


q : array[1..3] of char; 
Procedure twoa; 


BEGIN 




BEGIN 


writeln(x, y, z) ; 




writeln(x, y, z) ; 


END. 




END; 



Notice that the variables in each module occupy the same nondefault section name, my_sec. This means 
that at runtime, the variables x, y, and q from Math occupy the same memory locations as x, y , and 
q from Sub2. Therefore, whatever is assigned to x in Math, can be retrieved in Sub 2, and vice versa. 

There's no requirement that the variables in Sub2 have the same names as the variables in Math. How- 
ever, it does make your program far easier to understand if you do give them the same names. Taking this 
philosophy one step further, you could greatly simplify variable declaration by putting a named var decla- 
ration part into a separate file and using %include to put it into every module. 

You should preserve the order of declarations from one module to the next. For example, suppose the 
variable declarations look like this: 

Program Math; 
VAR (my_sec) 



integerie := 5; 

real := 6.2; 

array [1.. 3] of char 



'cat' ; 



Module 


Sub2; 






VAR (my_sec) 






y : 


real; 






x : 


integerie; 






q : 


array [1. . 3] 


of 


char; 



If you try to access x or y in Sub2, you get garbage results at runtime. That's because when compiling 
Sub2, the compiler sees y as being the first four bytes in my_sec. However, when compiling Math, the 
compiler sees y as being bytes 2 through 5 in my_sec. 
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7.3 Accessing a Routine Stored in Anotlier Pascal 
Module 

DOMAIN Pascal provides two methods for accessing a procedure or function stored in a different module 
or program. This section explains both methods, but first describes the extern and internal routine op- 
tions, which are both critical to that description. 

7.3.1 Extern 

The routine option extern serves exactly the same purpose for routines that the variable allocation clause 
extern serves for variables. Namely, it specifies that a routine is possibly defined in a separately compiled 
file. By specifying a routine as extern, you can call it even if it is defined in another file. 

Chapter 5 describes the format of routine options. Extern is like any other routine option, except that 
when you use extern, you put the routine heading at the end of the main declaration part of the program 
or module. 

7.3.2 Internal 

By default, all routine names in modules are global symbols, and all routine names in main programs are 
local symbols. A routine name from the main program can never become a global symbol. However, you 
can make a routine name from a module into a local symbol by specifying the routine option internal. See 
the "Routine Options" section in Chapter 5 for details on the syntax rules of routine options. 

7.3.3 Method A 

Figure 7-2 demonstrates the first method for accessing an externally stored routine. 

In Figure 7-2, program math refers to function exponent; however, function exponent is stored in 
module math2. Therefore, function exponent is declared as an extern in program math. There is no 
need to do anything special to module math2 because the compiler automatically makes exponent a 
global symbol in math2. At bind time, the binder resolves external symbol exponent with global symbol 
exponent. 

If you want to keep exponent local to module math2, you can make the following change to the source 
code: 

change — > FUNCTION exponent (number , power : INTEGER16) : REAL; 

to — > FUNCTION exponent (number, power : INTEGER16) : REAL; INTERNAL; 
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PROGRAM math; 

VAR 

n, p : integerl6; 
answer : real ; 

FUNCTION exponent (n,p : integerlB) : real; EXTERN; 
{exponent is defined outside this file.} 

BEGIN 

writelnCThe main program calls a separately-compiled routine in'); 

writelnC order to calculate the value of an integer raised to an'); 

writelnC integer power.'); 

writeln; 

writeCEnter an integer — '); readln(n) ; 

writeCRaised to what power — '); readln(p) ; 

answer := exponent (n,p) ; 

writeln(n:l, ' raised to the ', p:l, ' power is ', answer :1); 
END. 



MODULE math2; 

{ You must bind this module with program math. } 

VAR 

number, power, count : INTEGER16; 
run : INTEGERS 2; 

FUNCTION exponent (number, power : INTEGER16) : REAL; 
BEGIN 

writeln('This is mod 2'); 

if power = then exponent := 1; 

run := 1; 

for count := 1 to abs (power) do 

run : = run * number ; 
if power > 

then exponent : = run 
else exponent := (1 / run); 
END; 

Figure 7-2. Method A for Accessing an Externai Routine 
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7.3.4 Method B 

Figure 7-3 demonstrates the second method for accessing an externally-stored routine. 
PROGRAM math; 

VAR 

n, p : integerl6; 
answer : real ; 

FUNCTION exponent (n,p : integerl6) : real; EXTERN; 
{exponent is defined outside this file.} 

BEGIN 

writelnCThe main program calls a separately-compiled routine in') 

writelnC order to calculate the value of an integer raised to an') 

writelnC integer power.'); 

writeln; 

writeCEnter an integer — '); readln(n) ; 

write('Raised to what power — '); readln(p) ; 

answer := exponent (n,p) ; 

writeln(n:l, ' raised to the ', p:l, ' power is ', answer:l); 
END. 



MODULE math2; 

{ You must bind this module with program math. } 

DEFINE 

exponent ; 

FUNCTION exponent (number, power : INTEGER16) : REAL; EXTERN; 

VAR 

number, power, count : INTEGER16; 
run : INTEGERS 2; 



FUNCTION exponent; 
BEGIN 

writeln('This is mod 2'); 

if power = then exponent := 1; 

run : = 1 ; 

for count := 1 to abs (power) do 

run : = run * number ; 
if power > 

then exponent : = run 
else exponent := (1 / run); 
END; 



Figure 7-3. Method B for Accessing an External Routine 
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Under Method B you call external routines exactly as you do in Method A. Therefore, program math is 
unchanged from Method A. However, you must make the following three changes in module math2 : 

• DEFINE exponent; — Use a define statement to tell the compiler that exponent is a global 
symbol defined in module inath2. With one exception, define takes the syntax described in the 
"Accessing a Variable Stored in Another Pascal Module" section earlier in this chapter. The one 
exception is that you cannot assign an initial value to a procedure or function symbol. 

o FUNCTION exp (number, power : INTEGER16) : REAL; EXTERN; — Copy the function 
declaration from program math. Since this line should be an exact copy of the function declara- 
tion in the calling module, you should put this line into a separate file and %include it into both 
the module and the program. That way, you only keep one version of the function declaration. 

• FUNCTION exponent; — Notice that there are no arguments here; only the name of the func- 
tion. 

Figure 7-4 consists of one main program and two modules. The main program calls two external routines 
stored in the two modules. The two modules access some variables that the main program defines. 

Program relativityl; 

CONST 

speed_of_light = 2.997925e8; 

{ Both of the following routines are defined in another file: } 
Procedure convert_mph_to_light (IN speed_in_mph : real; 

OUT fraction_of_o : real); EXTERN; 
Function contracted_length(IN rest_length : real; 

IN fraction_of_c: real) : real; EXTERN; 

VAR 

speed_in_mph , fraction_of_c, rest_length : real; 

c : DEFINE real := speed_of_light ; {Make the value of c globally known.} 

BEGIN 

writeCEnter the speed of the object (in mph) — '); 

readln(speed_in_mph) ; 

convert_mph_to_light (speed_in_mph, fraction_of_c) ; 

write('What is the rest length of the object (in meters) — '); 
readln(rest_length) ; 

write ('It will be perceived in the rest frame of reference as ' ) ; 
writeln(contracted_length(rest_length, fraction_of_c) : 8: 6, ' meters'); 
END. 

Figure 7-4. Another Example of Calling External Routines 
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Module relativity2; 
DEFINE 

convert_mph_to_light ; 

Procedure convert_inph_to_light (IN speed_in_mph : real; 

OUT fraction_of_c : real); EXTERN; 



VAR 



O 



speed_in_mph , speed_in_mps , fraction_of_c, percentage : real; 
c : EXTERN real; 



{ The following procedure converts a speed (given in miles per hour) } 
{ into a percentage of the speed of light. } 

Procedure convert_mph_to_light ; 
BEGIN 

speed_in_mps := (0.44444 * speed_in_mph) ; 

fraction_of_c := speed_in_mps / c; 

percentage := (100 * fraction_of_c) ; 

writeln('This speed is ', percentage: 8: 6, ' percent of c.'); 
END; 



Module relativityS; 



o 



DEFINE 

contracted_length ; 

Function contracted_length(lN rest_length : real; 

IN fraction_of_c : real) : real; EXTERN; 

VAR 

rest_length : real ; 
speed_in_mps : real ; 

{ This function calculates the relativistic length contraction. } 

Function contracted_length; 

BEGIN 

contracted_length := rest_length * sqrt(l - sqr (fraction_of_c) ); 
END; 



Figure 7-4 . Another Example of Calling External Routines (Continued) 

Suppose you store program relativityl in file relativityl.pas, module relativity2 in file 
relativity2.pas, and module relativityS in file relativityS .pas. To compile the three files, 
enter the following three commands: 

$ pas relativityl 
$ pas relativity2 
$ pas relativityS 

You must now bind them together by entering a command like the following: 

$ bind relativity.bin relativity2.bin relativityS.bin -b einstein 
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Here is a sample execution of the program: 

$ einstein 

Enter the speed of the object (in mph) — 4500000 

This speed is 0.667121 percent of c. 

What is the rest length of the object (in meters) — 10 

It will be perceived in the rest frame of reference as 9.999778 meters 



7.4 Calling a FORTRAN Routine From Pascal 

DOMAIN Pascal permits you to call routines written in DOMAIN FORTRAN source code. To accomplish 
this, perform the following steps: 

1. Write source code in DOMAIN Pascal that refers to an external routine. Compile with the 
DOMAIN Pascal compiler. DOMAIN Pascal creates an object file. 

2. Write source code in DOMAIN FORTRAN. Compile with the DOMAIN FORTRAN compiler. 
DOMAIN FORTRAN creates an object file. 

3. Bind the object file(s) the Pascal compiler created with the object file(s) the FORTRAN compiler 
created. The binder creates one executable object file. 

4. Execute the object file as you would execute any other object file. 

The following sections describes steps 1 and 2. For information on steps 3 and 4, see Chapter 6. 

NOTE: The following sections explain how to call DOMAIN FORTRAN from DOMAIN 
Pascal. If you want to learn how to call Pascal from FORTRAN, see the 
DOMAIN FORTRAN Language Reference. 



7-5 Data Type Correspondence for Pascal and 
FORTRAN 

There is really no difference between making a call to a FORTRAN function or subroutine and making a 
call to an extern Pascal routine. However, before passing data between DOMAIN Pascal and DOMAIN 
FORTRAN, you must understand how Pascal data types correspond to FORTRAN data types. Table 7-1 
lists these correspondences. 

Table 7-1. DOMAIN Pascal and DOMAIN FORTRAN Data Types 



DOMAIN Pascal 


DOMAIN FORTRAN 


Integer, Integerl6 


Integer*2 


Integer32 


Integer, Integer* 4 


Real, Single 


Real, Real* 4 


Double 


Double Precision, Real*8 


Char 


Charact(er*l 


Boolean record 


Logical 


Set 


set emulation calls 


user-declared record 


Complex 


Array 


array (with restrictions) 


Pointer 


Pointer statement 
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The integer, real, and character data types in both languages correspond very well to each other. For ex- 
ample, Pascal's integerl6 data type is identical to FORTRAN'S integer* 2 data type, and a real in one 
language is exactly the same as a real in the other. 

There is a difference in what the keyword integer means in the two languages. Integer in DOMAIN Pas- 
cal is a 2-byte entity, while in DOMAIN FORTRAN, integer is four bytes by default. To avoid any confu- 
sion, you should use the specific integer data types (integerl6, integer32, integer* 2, and integer* 4) 
rather than the generic integer. 

Unlike Pascal, DOMAIN FORTRAN doesn't actually support a set data type. However, you can make 
special set emulation calls from within a DOMAIN FORTRAN program. Therefore, you can pass a set 
variable as an argument from a Pascal program and use the set emulation calls within your FORTRAN 
program. 

7.5.1 Boolean and Logical Correspondence 

Pascal's boolean data type and FORTRAN'S logical data type serve identical purposes, namely, to hold a 
value of true or false. However, boolean takes up one byte of main memory while logical takes up four 
bytes with the first byte being where the true or false value is set. To make the data types match up, you 
should create a record type in Pascal that contains one boolean for the "real" value, and three place- 
holding booleans. That is: 

TYPE 

boolrec = record 

real_bool : boolean; 
a,b,c : boolean; 
end; 



7.5.2 Simulating FORTRAN'S Complex Data Type 

Unlike FORTRAN, DOMAIN Pascal doesn't support a predeclared complex data type. However, you 
can easily declare a Pascal record type that emulates complex. In FORTRAN, complex consists of two 
single-precision real numbers. Therefore, you could define a complex Pascal record as follows: 



TYPE 






complex 


= record 






r 


single; 




imaginary 


single; 




end; 





7.5.3 Array Correspondence 

Single-dimensional arrays (including boolean/logical arrays when you make the adjustments described 
above) of the two languages correspond perfectly; for example: 

In DOMAIN Pascal In DOMAIN FORTRAN 



Array [1.. 10] of CHAR character*10 x 

Array[1..50] of INTEGER16 integer*2 x(50) 

Array[1..20] of DOUBLE real*8 x(20) 



The one exception is that you cannot declare a DOMAIN FORTRAN char array of unspecified length as 
a parameter. For example, do not specify an array like the following as a parameter in the DOMAIN 
FORTRAN program: 

CHARACTER* ( * ) x 
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Multidimensional arrays in the two languages do not correspond very well. The tricky part is that Pascal 
represents multidimensional arrays differently than FORTRAN. To represent arrays in DOMAIN Pascal, 
the right-most element varies fastest. For example, DOMAIN Pascal represents the six elements of an 
array [1 . . 2 , 1 . . 3 ] in the following order: 

1,1 
1,2 
1,3 
2,1 
2,2 
2,3 

However, the left-most element varies fastest in DOMAIN FORTRAN arrays. Therefore, DOMAIN 
FORTRAN represents the six elements of an array (2, 3) in the following order: 

1,1 
2,1 
1,2 
2,2 
1,3 
2,3 

Obviously this can lead to confusion if you pass a multidimensional Pascal array as an argument to a 
DOMAIN FORTRAN parameter. However, there is a way to avoid this confusion. Simply declare the ar- 
ray dimensions of the DOMAIN FORTRAN parameter in reverse order. For example, instead of declar- 
ing integer *4 array (2, 3), declare integer *4 array (3, 2). Following are two more examples: 

Argument In Pascal Parameter In FORTRAN 

x : array[1..5, 1..10] of real real*4 x(10,5) 

X : array[1..2, 1..3, 1..4] of real real*4 x(4,3,2) 

7.6 Passing Data Between FORTRAN and Pascal 

There are two ways to pass data between a DOMAIN Pascal program and a DOMAIN FORTRAN func- 
tion or subroutine. You can either establish a common section of memory for sharing data, or you can 
pass the data as an argument to a routine. The next section demonstrates the second method, while the 
following paragraphs demonstrate the first method. 

Earlier in this chapter you learned how to use a named section to pass data between two separately com- 
piled Pascal modules. A named section in DOMAIN Pascal is identical to the named common area of 
DOMAIN FORTRAN. If you give a named section the same name as a named common area, the binder 
establishes a section of memory for sharing data. 

For example, suppose that you want both a Pascal program and a FORTRAN function or subroutine to 
access two variables — a 16-bit integer and an 8-byte (double-precision) real number. In the DOMAIN 
Pascal program, you can declare the two variables as follows: 

VAR (my_sec) 

X : INTEGER16; 
d : DOUBLE; 

If you want the value of these two variables to be accessible from the DOMAIN FORTRAN program, de- 
clare them as follows in the FORTRAN program: 

INTEGER* 2 x 
REAL* 8 d 
COMMON /my_sec/ x,d 
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Remember to preserve the same order of variable declaration in the common statement that you did in 
the var declaration part. For example, you will get peculiar runtime results if you declare your common 
statement as 

COMMON /my_sec/ d,x 



7,7 Calling FORTRAN Functions and Subroutines 

This section demonstrates how to call a DOMAIN FORTRAN function or subroutine from a DOMAIN 
Pascal program. Calling DOMAIN FORTRAN from DOMAIN Pascal is trivial; the only possible complica- 
tion is that the data types of the arguments and parameters may not correspond perfectly. (See the "Data 
Type Correspondence" section earlier in this chapter for ways to remedy the data type mismatches.) 

DOMAIN Pascal supports a variety of parameter types including value parameters, variable parameters, 
in, out, and in out parameters. DOMAIN FORTRAN supports only one kind of parameter type, and it is 
equivalent to the in out parameter type in DOMAIN Pascal. That is, DOMAIN FORTRAN accepts what- 
ever value (s) you pass to it, and in turn, always passes a value back. 



(^ 7.7.1 Calling a Function 



The following shows a DOMAIN Pascal program that calls the DOMAIN FORTRAN function listed after 
it. The call is trivial since DOMAIN Pascal's single data type corresponds perfectly to the real* 4 data 
type of DOMAIN FORTRAN. 

program pascal_fortranl; 

{ This program calls an external function named HYPOTENUSE. Although it will } 

{ end up calling a FORTRAN version of that function, this same source code } 

{ could call a Pascal version of HYPOTENUSE. } 

VAR 

legl, leg2 : single; 

function hypotenuse (in out legl, leg2 : single) : single; extern; 

BEGIN 

writeln ('This program calculates the hypotenuse of a right'); 

writeln ('triangle given the length of its two legs.'); 

write ('Enter the length of the first leg — '); 

readln (legl) ; 

write ('Enter the length of the second leg — '); 

readln (leg2) ; 

writeln ('The length of the hypotenuse is: ', hypotenuse (legl , leg2) : 5 : 2) ; 

END. 

* This is a FORTRAN function for calculating the hypotenuse of a 

* right triangle. You don't have to do anything special to this file 

* to make it callable by Pascal. In fact, this function could just 

* as easily be called by a FORTRAN program. 

real*4 function hypotenuse (11, 12) 

real*4 11, 12 {real*4 corresponds to the Pascal data type single.} 

hypotenuse = sqrt((ll * 11) + (12 * 12)) 

end 
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These programs are available on-line and are named pascal_fortranl and hypotenuse. 

7.7.2 Calling a Subroutine 

A function in Pascal corresponds to a function in FORTRAN. A procedure in Pascal corresponds to a 
subroutine in FORTRAN. In the following example, HYPOTENUSE changes from a function to a subrou- 
tine and the Pascal program changes to reflect that it is expecting an external procedure. Note that the 
Pascal program could actually be calling a Pascal procedure. There's nothing in the program that desig- 
nates the language in which the called procedure is written. 

program pascal_f ortran2 ; 

VAR 

legl, leg2, result : real; 

procedure hypotenuse (in out legl, leg2, result : real) ; extern; 

BEGIN 

writeln ('This program calculates the hypotenuse of a right'); 

writeln ('triangle given the length of its two legs.'); 

write ('Enter the length of the first leg — '); 

readln (legl) ; 

write ('Enter the length of the second leg — '); 

readln (leg2) ; 

hypotenuse ( legl , leg2 , result ) ; 

writeln ('The length of the hypotenuse is: ', result:5:2); 

END. 

* This is a FORTRAN subroutine for calculating the hypotenuse of a 

* right triangle. 

subroutine hypotenuse (11, 12, result) 
real*4 11, 12, result 

result = sqrt((ll * 11) + (12 * 12)) 
end 

These programs are available on-line and are named pascal_fortran2 and hypot_sub. 
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7.7.3 Passing Character Arguments 

Passing arguments when two languages' data types match exactly is relatively easy, but passing them when 
they don't often means you need to do extra work. 

If you pass a string of chars from DOMAIN Pascal to DOMAIN FORTRAN, you should add an extra pa- 
rameter to the Pascal routine heading. This is because FORTRAN adds an implicit string length argument 
whenever it passes a character string back to a calling routine. Suppose your Pascal program includes the 
following: 

TYPE 

name = array [1.. 10] of char; 
VAR 

first_name : name; 

len : integerl6; 

procedure change_name ( in out first_name : name; 

in out len : integerl6) ; extern; 

change_name(f irst_name, len) ; {Assume "change_name" is a FORTRAN subroutine.} 

This Pascal routine heading includes an "extra" parameter for the length of f irst_name that FORTRAN 
will add when Pascal calls the routine. The length argument must be of type integerl6 because 
FORTRAN'S implicit length argument is an integer* 2. 

The FORTRAN routine heading does not explicitly include the length argument. For this example, it 
would look like this: 

subrout ine change_name ( f ir s t_name ) 
character*10 first_name 

If you send multiple strings to DOMAIN FORTRAN and you include FORTRAN'S implicit length argu- 
ments in the Pascal parameter list, the length parameters must always appear at the end of the routine 
heading. That is, it is not correct to list them as stringl, lenl , string2, len2, etc. For instance: 

{ Pascal program fragment. } 
TYPE 

fn = array [1.. 10] of char; 

In = array [1.. 20] of char; 



procedure process name (in out first name : fn; 



in out middle_initial 
in out last_name 
in out lenl, len2, lenS 



char; 

In; 

integerl6) ; extern; 



process name(first name, middle initial, last name, lenl, len2 , lenS) ; 



* FORTRAN subroutine fragment. 

subroutine process_name(f irst_name, middle_initial, last_name) 

character*10 first_name 
character middle_initial 
character*20 last name 
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7.7.4 Passing a Mixture of Data Types 

The following DOMAIN Pascal program and DOMAIN FORTRAN subroutine demonstrate passing a va- 
riety of data types. 

program pascal_f ortranS ; 

{ This program demonstrates passing arguments of several different } 
- { data types to a FORTRAN subroutine. } 



TYPE 




last_names = array [1.. 10] of char; 


two_by_. 


four = array[1..2, 1..4] of integerl6; 


complex 


= record 




r : real; 




imaginary : real ; 




end; 


boolrec 


= record 




bool_var : boolean; 




a,b,c : boolean; 




end; 


VAR 




age : 


integer32 := 1000000; 


lying : 


boolrec; 


name : 


last_names := 'Tucker'; 


multi : 


two by four := [ [5,8,11,14] 



[100, 103, 106, 109] ] ; 
c : complex := [4.53, 0.98]; 
countl, count2, len : integerlB; 

procedure print_vals (in age : integer32; in lying : boolrec; 

in name : last_names; in multi : two_by_four; 

in c : complex) ; 

{ This procedure prints the values of the variables. } 

BEGIN 

writeln ("Age = ', age: 5); 

writeln ('Lying = ', lying.bool_var : 5) ; 

writeln ('Name = ', name); 

writeln ('Multi = '); 
for countl := 1 to 2 do 

begin 

for count2 := 1 to 4 do 

write (multi [countl, count2] :5) ; 

writeln; 

end; {for} 

writeln ('Complex = ', c.r:4:2, ',', c. imaginary: 5 :2) ; 

END; {end procedure print_vals} 

{ Note "extra" len argument in the parameter list of mixed_types. } 

procedure mixed_types (in out age : integer32; in out lying : boolrec; 

in out name : last_names; in out multi : two_by_four; 
in out c : complex; in out len : integerl6) ; extern; 
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BEGIN {main program} 

lying. bool_var := true; 

writeln (chr(lO) , 'Before calling FORTRAN', chr(lO)); 

print_vals(age, lying, name, multi, c) ; 

mixed_types(age, lying, name, multi, c, len) ; 
writeln (chr(lO) , 'After calling FORTRAN', chr(lO)); 
print_vals(age, lying, name, multi, c) ; 

END. 

************************************************************* 

* This is a FORTRAN subroutine for assigning new values to arguments 

* passed in from a Pascal program. It demonstrates how to pass a 

* variety of data types. 

subroutine mixed_types (a,l,n,m,c) 

integer*4 a { Declare variables.} 

logical 1 

character*10 n 

integer*2 m(4,2), count 

complex c 

* Make reassignments. 

a = a * 2 
1 = .false, 
n = 'Carter' 

do count =1,4 

m(count,l) = m(count,l) + 1000 
enddo 

c = (2.0, -2.0) 
end 

These programs are available on-line and are named pascal_fortran3 and mixed_types. If you com- 
pile, bind, and execute these programs, you get the following output: 

Before calling FORTRAN 



Age = 


1000000 




Lying 


= TRUE 




Name = 


= Tucker 




Multi 


= 




5 


8 11 


14 


100 


103 106 


109 



Complex =4.53, 0.98 

After calling FORTRAN 

Age = 2000000 
Lying = FALSE 
Name = Carter 
Multi = 
1005 1008 1011 1014 
100 103 106 109 
Complex = 2.00,-2.00 
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7.8 Calling a C Routine from Pascal 

In addition to allowing you to call FORTRAN routines, DOMAIN Pascal permits you to call routines writ- 
ten in DOMAIN C source code. To accomplish this, perform the following steps: 

1. Write source code in DOMAIN Pascal that calls a routine. Compile it with the DOMAIN Pascal 
compiler. DOMAIN Pascal creates an object file. 

2. Write source code in DOMAIN C. Compile it with the DOMAIN C compiler. DOMAIN C creates 
an object file. 

3. Bind the object file(s) the Pascal compiler created with the object file(s) the C compiler created. 
The binder creates one executable object file. 

4. Execute the object file as you would execute any other object file. 

The remainder of this chapter describes steps 1 and 2. For information on steps 3 and 4, see Chapter 6. 

NOTE: The following sections explain how to call DOMAIN C from DOMAIN Pascal. 
If you want to learn how to call Pascal from C, see the DOMAIN C Language 
Reference. 



7.8.1 Reconciling Differences in Argument Passing 

Pascal usually passes arguments by reference, while C usually passes them by value. In order to pass argu- 
ments by reference correctly, you must declare your parameters in C to be pointers so that they can take 
the addresses Pascal passes in. The examples in the following sections demonstrate how to do this. 

If you want to pass your Pascal arguments by value, you must use the val_param routine option in your 
procedure or function heading. Chapter 5 describes val_param. 

7.8.2 Case Sensitivity Issues 

When the DOMAIN Pascal compiler parses a program, it makes all identifier names uppercase, regardless 
of the way you type the names in your source code. In contrast, when the DOMAIN C compiler parses a 
program, it inverts the case of all identifiers. So if your C source code includes the following 

double square_num(a,b) 
float *a,*b; 

the compiler converts the function name square_num and the variables a and b to SQUARE_NlJM, A, 
and B. But if the function heading looks like this 

double SQUARE_NUM(A,B) 
float *A,*B; 

the compiler converts SQUARE_NUM, A, and B to square_nuin, a, and b. It is important to under- 
stand this when you are calling C from Pascal. In order to make identifier names match up at bind time, 
you should always use lowercase letters in your C subprograms. That way, the C compiler will invert them 
to uppercase and they will match the always-uppercased identifier names in the Pascal program. 



V_ 
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7.9 Data Type Correspondence for Pascal and C 

Before you try to pass data between DOMAIN Pascal and DOMAIN C, you must understand how Pascal 
data types correspond to C data types. Table 7-2 lists these correspondences. 



Table 7-2. DOMAIN Pascal and DOMAIN C Data Types 



o 



o 



DOMAIN Pascal 


DOMAIN C 


char 


char 


integer, integerl6 


short 


integer32 


int, long 


real, single 


float 


double 


double 


enumerated types 


enum 


record 


struct 


variant record 


union 


pointer (^) 


pointer (*) 


boolean 


none 


set 


none 


none 


unsigned char 


0.. 65335 


unsigned short 


0. .4295967295 


unsigned long 



o 



As the table shows, the integer, real, and character data types in both languages correspond very well. For 
example, Pascal's integerl6 data type is identical to C's short data type, and a double variable in Pascal 
is the same as a double in C. 

However, there are some important differences. DOMAIN C has no equivalent types for Pascal's boolean 
or set types, although you can simulate these types. 

There also is a C type that has no Pascal equivalent. There is no easy way to simulate C's unsigned char 
type in Pascal. Therefore, if you pass an unsigned char value to a Pascal program, it is interpreted as a 
signed value. This only makes a difference when the high-order bit is set. 
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7.9.1 Passing Integers and Real Numbers 

Since the Pascal and C integer and real data types match up so well, it is fairly easy to pass data of these 
types between the two languages. Make sure that all arguments agree in type and size, either by declara- 
tion or by casting. 

The example below shows a Pascal program that solicits the values for two sides of a right triangle. It then 
sends those values into the C function, which computes and returns the length of the hypotenuse. The ar- 
guments for the triangle's sides are 32 bits each, while the result is 64 bits. 

PROGRAM pascal_cl; 

{ This program calls a C function that calculates the hypotenuse of } 

{ a right triangle when a user supplies the lengths of two sides. } 

VAR 

legl, leg2 : single; 

function hypot_c(in out legl, leg2 : single) : double; extern; 

BEGIN 

writeln ('This program calculates the hypotenuse of a right triangle '); 
writeln ('given the length of its two sides.'); 
write ('Enter the lengths of the two sides: '); 
readln (legl,leg2); 

writeln ('The triangle" s hypotenuse is: ', hypot_c(legl, leg2) : 5 : 2) ; 

END. 



/* This is a C function for finding the hypotenuse of a */ 
/* right triangle. The arguments must be declared as pointers.*/ 
# include <math.h> 
double hypot_c(a,b) 
float *a,*b; 

{ 

double result; 

result = sqrt((*a * *a) + (*b * *b) ) ; 

return(result) ; 

} 

These programs are available on-line and are named pascal_cl and hypot_c. Following is a sample 
execution of the bound program. 

This program calculates the hypotenuse of a right triangle 
given the length of its two sides. 
Enter the lengths of the two sides: 3 4 
The triangle's hypotenuse is: 5,00 



7.9.2 Passing Character Arguments 

Passing arguments when two languages' data types match exactly is relatively easy, but passing them when 
they don't often means you have to do extra work. 

You must do extra work when you pass character strings between the languages. C automatically appends 
a null character, \0, to the end of every string, so if your Pascal program is going to print a string it re- 
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ceives from C, you must remember to take care of the null. You can strip it off either in your C routine or 
in Pascal; the sample program in this section shows how to strip it off in C. 

The following Pascal program sends two strings to a C routine that prompts a user for new values and then 
sends the new string values back. 

PROGRAM pascal_c2; 

{ This program demonstrates passing character variables to and } 

{ getting them back from a C routine. } 

TYPE 

fn = array [1. . 10] of char; 

In = array[1..15] of char; 
VAR 

first_name : fn; 

last_name : In; 

procedure pass_char(in out first_name : fn; 

in out last_name : In) ; extern; 

BEGIN 

first_name := 'Sherlock'; 

last_name := 'Holmes'; 

writeln ('Before calling C, this is the name: ', first_name, last_name) ; 

pass_char (f irst_name, last_name) ; 

writeln ('After calling C, this is the name: ', first_name, last_name) ; 

END. 



/* This C routines takes two strings, prompts a user for new values, */ 
/* and strips off the null characters before sending the strings back.*/ 
#include <stdio.h> 
pass_char (f irst_name, last_name) 
char *first_name, *last_name; 

{ 

short i , j ; 

char hold_first[10] , hold_last [15] ; 

printf ("\nEnter the first name and last name of a detective: ") ; 
scanf ("%s%s", hold_first, hold_last) ; 

/* Strip off the null character C automatically appends to any string */ 
/* and blank out any previously used places in the name strings. */ 
for (i = 0; hold_f irst [i] != '\0'; i++) 

f irst_name[i] = hold_f irst [i] ; 
for (j = i; j < 10; j++) 

f irst_name[j] = ' '; 

for (i = 0; hold_last[i] != '\0' ; i++) 

last_name[i] = hold_last [i] ; 
for (j = i; j < 15; j++) 

last_name [ j ] = ' ' ; 
} 
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These programs are available on-line and are named pascal_c2 and pass_char. Following is a sample 
execution of the bound program. 

Before calling C, this is the name: Sherlock Holmes 

Enter the first name and last name of a detective: Philip Marlowe 
After calling C, this is the name: Philip Marlowe 



7.9.3 Passing Arrays 

Single-dimensional arrays (except for boolean arrays) of the two languages correspond fairly well. The 
major difference is that in C, array subscripts always begin at zero, while Pascal allows the programmer to 
determine the subscript at which the array begins. In order to make arrays match up, you should define 
your Pascal subscripts to begin at zero. For example: 

In DOMAIN Pascal In DOMAIN C 

x = array [0.. 9] of char char x[10] 

X = array [0. .49] of integer short x[50] 

x = array[0..19] of single float x[20] 

V 
With such declarations, the following code fragments access the identical elements in an array: 

In DOMAIN Pascal In DOMAIN C 

for i := to 9 do for (i = 0; i < 10; i++) 

my_array[i] := i; my_array[i] = i; 

As described earlier, Pascal by default passes arguments by reference, so when it sends an array argument 
to a routine, it actually is sending the address of the first element in the array. C gets that address when 
you declare the array variable in C to be a pointer. This means you don't have to specify the size of a sin- "^ 

gle-dimensional array that your C subprogram receives from Pascal. That is, if your Pascal program in- 
cludes the following 

type 

X = array [0.. 9] of integer32; 
var 

my_array : x ; 

pass_array(my_array) ; ( 

your C routine heading can look like this: 

pass_array (my_array) 

long *my_array; /*Notice that there's no indication of the 

array's dimensions. */ 
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The following example shows a Pascal program that loads five user-entered scores into a single-dimen- 
sional array and then sends that array to a C procedure to compute the average. Notice that the argument 
size determines the dimension of the array; the C declaration of the array contains no dimensioning in- 
formation. 

PROGRAM pascal_c3; 

{ This program demonstrates passing a single-dimensional } 

{ array to a C routine. } 

TYPE 

scores = array [0.. 4] of integer; 
VAR 



grades 


scores; 






i, 3 


integer; 






result 


single; 






size 


integer : = 5 ; 






procedure single_dim(out result 


single; 




in size 


integer; 






in grades 


scores) ; 


extern; 



BEGIN 

writeln ('Enter ', size:l, ' integer test scores separated by spaces.'); 

for i := to 4 do 

read (grades [i] ) ; 
readln; 

single_dim(result, size, grades); 

writeln ('C computed the average of the test scores, and it is: ', 
result: 5:2); 

END. 

single_dim(result , size, grades) 
float *result; 
short *size, *grades; 

{ 

short i, total; 
total =0; 

for (i = 0; i < *size; i++) /* Add up array values */ 

total += grades [i]; /* and then compute */ 

♦result = total / 5.0; /* average. */ 

} 

These programs are available on-line and are named pascal_c3 and single_dim. Following is a sam- 
ple execution of the bound program. 

Enter 5 integer test scores separated by spaces. 

85 92 100 79 96 

C computed the average of the test scores, and it is: 90.40 

Multidimensional arrays in the two languages also correspond fairly well. Both languages store such arrays 
in the same order; that is, the right-most subscript varies fastest. So these two arrays would be stored iden- 
tically: 

In DOMAIN Pascal In DOMAIN C 

X = array[0. .1,0. .2] of integer32; long *x[2] [3] ; 
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7.9.4 Passing Pointers 

Passing pointers between Pascal and C is fairly straightforward. In both cases, pointers are 4-byte entities. 
The following example shows a simple linked-list application. The Pascal program creates the first element 
of the list and then calls the C routine append to add new elements to the list. The routine print list is 
a Pascal routine that prints the entire list. In addition to illustrating how to pass pointers, this example also 
shows the correspondence of Pascal records to C structures. 



PROGRAM pascal_c4; 








TYPE 








link = "list; 








list = record 








data : char ; 








p : link; 








end; 








VAR 








last_let : char 


:= 'z'; 






val : char ; 








base, first : link; 








procedure append (in 


base : 


link; 




in 


val : 


char) ; 


extern; 



procedure printlist; 

{ printlist prints the data in each member of the linked list. } 



BEGIN 

while base <> nil do 
begin 

writeln(base" .data) ; 
base := base" .p; 
end; 



END; 



{end procedure printlist} 



BEGIN {main program} 
base := nil; 
new(f irst) ; 



first". data := 'a' ; 
first" .p := base; 

base := first; 



{ Assign value to first element of the list. } 

{ The first element is also the last, so set } 

{ pointer to nil. } 

{ Base points to the beginning of the list. } 



val := 'b' ; 
append (base, val) ; 
append (base, last let) 



printlist; 
END. 



{ Call procedure to print contents of list. } 
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/* C routine that appends items to a linked list. */ 

#module pass_pointers_c 
#include <stdio.h> 

typedef struct 

{ 

char data; 

struct list *next; 

} list; 

void append (base, val) 
list **base; 
char *val; 



{ 

list *newdata, *last_rec; 

last_rec = *base; 

newdata = (list*)malloc(sizeof (list) ) 

while (last_rec->next != NULL) 
last_rec = last_rec->next ; 

last_rec->next = newdata; 
newdata->data = *val; 
newdata->next = NULL; 

} 



/* Point temp variable last_rec at */ 

/* the beginning of the list. */ 

/* Allocate memory for new element. */ 

/* Walk to the end of the list. */ 

/* Add new data. */ 



o 



o 



These programs are available on-line and are named pascal_c4 and append. If you compile and bind 
the programs, and execute the result, you get this output: 

a 
b 
z 
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Input and Outpy* 



You may have turned to this chapter first if you are new to DOMAIN Pascal yet experienced with other 
Pascals. After all, I/O is the most system-dependent aspect of any Pascal. I/O on DOMAIN Pascal may 
only partially resemble I/O on some other Pascal. These are necessary differences because each imple- 
mentation of Pascal must take advantage of the features of the host operating system. 

DOMAIN Pascal supports the following three methods of performing I/O: 

• Input Output Stream (lOS) calls 

• VFMT calls 

• Predeclared DOMAIN Pascal I/O procedures 

In general, you can perform all your I/O with the predeclared DOMAIN Pascal I/O procedures. How- 
ever, the other two methods can be very useful in certain circumstances. 

This chapter provides a brief overview of all three methods, along with some background information that 
may aid you in whatever method you choose. 

8.1 Some Background on DOMAIN I/O 

This section describes some information that may be helpful in understanding how I/O works on the DO- 
MAIN system. It's only a brief sketch; the full details are published in Programming With General System 
Calls. Before describing the mechanics of DOMAIN I/O here, there is a brief description of lOS calls and 
VFMT calls. 
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8.1.1 Input Output Stream (lOS)Calls 

lOS calls are system calls that perform I/O. You can easily make lOS calls from your DOMAIN Pascal 
program. lOS calls can: 

• Create a file 

• Open or close a file 

• Write to or read from a file 

o Change a file's attributes (a file's attributes include name, length, type uid, accessibility, etc.) 

• Access magnetic tape files or serial lines 

lOS calls are more primitive than the predeclared DOMAIN Pascal I/O procedures. Consequently, they 
give you more control over I/O, but they are harder to use. Therefore, for simple I/O needs you are prob- 
ably better off using the predeclared DOMAIN Pascal I/O procedures. If you want to do something out of 
the ordinary, then you will most likely need to use lOS calls. 

Chapter 3 of Programming With General System Calls details lOS. 

8.1.2 VFMT Calls 

VFMT calls are special system calls that format input and output. Since the Pascal language does not sup- 
port elaborate formatting features, you may find it useful to make a VFMT call in situations such as the 
following: 

• A variable contains a hexadecimal value and you wish to prompt your user with its ASCII equiva- 
lent. 

• You want to tabulate results in fixed columns using scientific notation. 

• You need to parse an input line without worrying about whether the user separates the arguments 
with spaces or semicolons. 

VFMT is a set of tools for converting data representations between formats. 

VFMT performs two classes of operations — encoding and decoding. Encoding means taking program- 
defined variables and producing text strings that represent the values of the variables, in a format that you 
specify. These encoded values are then often written to output for viewing. Decoding means taking text 
(typically typed by the user) , interpreting it in a way that you specify, and storing the apparent data values 
in program-defined variables. 

The VFMT calls allow you to format the following kinds of data: 

• ASCII characters 

• 2-byte or 4-byte integers interpreted as signed or unsigned integers in octal, decimal, or hexa- 
decimal bases 

• single- and double-precision reals in floating-point and scientific notations 

This includes the following DOMAIN Pascal data types: char, integerl6, integer32, single, and double. 

Chapter 8 of Programming With General System Calls details VFMT calls. In addition, you can use get- 
pas (see Chapter 1) to obtain copies of several sample programs that contain VFMT calls. 

The remainder of this section is devoted to explaining certain aspects of DOMAIN I/O that you may find 
useful. 
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8.1.3 File Variables and Stream IDs 

All of the predeclared DOMAIN Pascal I/O procedures take a file variable as an argument. The file vari- 
able is a synonym for a temporary or permanent pathname to the file. If you are using lOS calls rather 
than the DOMAIN Pascal I/O procedures, you refer to a pathname by its lOS ID rather than by its file 
variable. A stream ID is a number assigned by the operating system when you open a file or device. Since 
DOMAIN Pascal I/O procedures in your source code ultimately translate to lOS calls at runtime, a file 
variable in your source code becomes a lOS ID at runtime. The system can support up to 128 I/O streams 
per process. 

8.1.4 Default Input Output Streams 

Every process starts out with the I/O streams shown in Table 8-1. DOMAIN Pascal deals in file variables, 
not lOS IDs, so the table also shows the names of the file variables corresponding to these streams. You 
need not explicitly declare these; the system opens these streams automatically as described in the next 
subsection. 



o 



Table 8-1. The Default Streams 



Stream Name 
ios $stdin 



File Variable Name 



Input 



Description 

If you do not explicitly specify a file variable 
for a DOMAIN Pascal input procedure, the 
compiler reads from input. By default, input is 
the process input pad, but you can redirect this 
stream with the < character. * 



ios $stdout 



Output 



If you do not explicitly specify a file variable 
for a DOMAIN Pascal output procedure, the 
compiler assumes output. By default, the sys- 
tem associates this stream with the process 
transcript pad, but you can redirect this stream 
with the > character.* 



o 



ios !)>errm 



ios $errout 



This is just another input stream available for 
you to use. (It has nothing to do with errors.) 
By default, errin is the process input pad, but 
you can redirect this stream with the <? charac- 
ter sequence.* 

DOMAIN Pascal sends errors to this stream. 
By default, this is the transcript pad, but you 
can redirect this stream with the >? character 
sequence.* 



o 



8.1.5 Interactive I/O 

DOMAIN Pascal uses the following system for interactive processing of the standard input (input) and 
standard output (output) files. DOMAIN Pascal does not actually open input and output until the pro- 
gram first refers to them. When DOMAIN Pascal finds the first reference to input in your program, it 



The DOMAIN System User's Guide explains how to redirect I/O. 
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calls reset (input). Reset expects to fill the file buffer variable with the first char of a text file, which 
means that reset(input) can cause a request for input. For example, consider the following program: 

PROGRAM lazy; {This program is WRONG!} 

VAR 

c : char ; 
BEGIN 
while not eof (input) do 

begin 

write ('enter a letter or an EOF — '); 

readln(c) ; 

end; 
END. 

If you run this program, you might expect results like the following: 

enter a letter or an EOF — A 
enter a letter or an EOF — Z 
enter a letter of an EOF — <EOF> 

However, in reality, the program does not produce those expected results. That's because the first refer- 
ence to input is in the eof function. This causes the system to perform a reset (input) prior to the test for 
eof. Reset expects to fill the file buffer, so the test for eof actually results in a request for input. There- 
fore, running the program results in the following: 

A 

enter a letter or an EOF — Z 
enter a letter or an EOF — <EOF> 

To eliminate this problem, you must take advantage of a feature of reset known as delayed access. De- 
layed access means that data will not be supplied to fill the input buffer at the reset, but rather at the next 
reference to the file. Since reset initiates delayed access, and since eof and eoln cause the file buffer to 
be filled, you must place the first prompt for input before any tests for eof or eoln. The data you enter in 
response to the prompt is retained until you make another reference to the input file. 

The following shows how to use delayed access to make the previous example work correctly: 

PROGRAM interactive; 
VAR 

c : char; 
BEGIN 

write ('enter a letter or an EOF — '); 
while not eof (input) do 

begin 

readln(c) ; 

write ('enter a letter or an EOF — '); 

end; 
END. 
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8.1.6 Stream Markers 

When you open a file, the operating system assigns a stream marker to the file. A stream marker is a 
pointer that points to the current position inside the open file. As you read from or write to the file, the 
operating system moves the stream marker forward in the file. The stream marker points to the byte (or 
record) that the system can next access. When you open the file with the DOMAIN Pascal open proce- 
dure, the stream marker initially points to the beginning of the file. Using lOS calls, you can open the file 
with the stream marker initially pointing to the end of file so that you can append to the file. 

If you are using lOS calls, you directly control the stream marker. If you are using DOMAIN Pascal I/O 
procedures, you control the stream marker indirectly through the procedures you call. 

8.1.7 File Organization 

The DOMAIN operating system supports the following four types of file organization: 

• UASC context delimited ASCII record files ("UASC file" for short) 

• Fixed-length records files ("rec file" for short) 

• Variable-length records files 

• No defined record structure files 

Using stream calls, you can create any of the four types of files. However, using DOMAIN Pascal, you can 
create only the first two types. 

A UASC file is an ordinary text file. The system stores a text file as a 32-byte header followed by ASCII 
characters. The operating system makes no attempt to organize or structure the data in a text file. That is, 
'908' is stored in the three bytes it takes to hold the ASCII values of digit '9', digit '0', and digit '8', 
rather than structuring it into the value of integer 908. 

It is a DOMAIN Pascal restriction that each line of a text file be no longer than 256 characters. By line, 
we mean all the characters between two end-of-line characters. No text file can have more than 32767 
lines. 

A rec file consists of zero or more "records." The term record is confusing here. In this context it does 
not necessarily mean a Pascal record variable. Instead, it means a collection of some data type. When you 
create a rec file with DOMAIN Pascal I/O procedures, the data type of the record is the same as the base 
type of the file variable. In a fixed-length record file, each record must be of the same type, and must be 
of the same size. 

8.2 Predeclared DOMAIN Pascal I/O Procedures 

The encyclopedia of DOMAIN Pascal code in Chapter 4 details the syntax of each of the predeclared 
DOMAIN Pascal I/O procedures. This section tries to provide a global view of these procedures. 



8.2.1 Creating and Opening a New Flie 

You can create a permanent file or a temporary file. The operating system deletes a temporary file as soon 
as the program that created it ends. Permanent files last beyond program execution. In fact, they last until 
you explicitly delete them. 

To create a permanent file, you call the open procedure and specify 'NEW' as the file_history. This not 
only creates the file, but opens it for future access as well. 

To create a temporary file, you call the rewrite procedure. 

Both open and rewrite take a file or text variable as an argument. If the file variable has the text data 
type, then DOMAIN Pascal creates an UASC file. If the file variable has the file data type, DOMAIN 
Pascal creates a rec file. 
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8.2.2 Opening an Existing File 

To open an existing file for future access, you call the open procedure and specify either 'OLD' or 'UN- 
KNOWN' as the file_history. 

Note that you do not have to explicitly open the Shell transcript pad. It is already open. (See the "Default 
Input Output Streams" section earlier in this chapter for details.) 

8.2.3 Reading Fronn a File 

In order to read from an open file, you must call the reset procedure. Reset tells the system to treat the 
open file as a read-only file (with the one exception being the replace procedure) . You can change the 
open file to a write-only file with the rewrite procedure. 

After calling reset, you are free to call any or all of the three input procedures that DOMAIN Pascal sup- 
ports, namely, read, readin, and get. All three procedures read information from the specified file and 
assign it the specified variable (s). The following list describes the differences among the three procedures: 

• Get can access both rec files and UASC files. Use it to assign the contents of the next record or 
character in a file to a file buffer variable. 

• Read can access both rec files and UASC files. Use it to read information from the specified file 
into the given variables. After reading a record (if a rec file) or character (if a UASC file), read 
positions the stream marker to point to the next record or character in the file. 

• Readin can access UASC files only. It is similar to read except that after reading the information, 
readin sets the stream marker to the character immediately after the next end-of-line character. 

It is often useful to know when the stream marker has reached the end of the line or the end of the file. 
You can use eoln to test for the end of line, and eof to test for the end of file in UASC files. 

DOMAIN Pascal supports the find procedure as an extension to standard Pascal. Use it to set the stream 
marker to point to a particular record in a rec file. This procedure permits you to skip randomly through a 
rec file, while the other read procedures imply a sequential path. 

8.2.4 Writing to a File 

In order to write to a file, you must call the rewrite procedure. (If you used rewrite to open a temporary 
file, then you don't have to call rewrite again.) The rewrite procedure tells the system to treat the open 
file as a write-only file. You cannot read from this file unless you call reset. 

Once the file has been opened for writing, you can call any of these four standard Pascal output proce- 
dures: write, writeln, put, and page. Write, writeln, and put are the output mirrors to read, readin, 
and get. Using write, writeln, or put causes DOMAIN Pascal to write the specified information from the 
specified variable (s) to the specified file. Here are the differences among the four procedures: 

• Put can access both rec files or UASC files. Use it to assign the contents of the file buffer variable 
to the next file position, causing the contents to be written to the file. 

• Write can access both rec files and UASC files. Use it to write information from the specified 
variables into the specified file. After writing a record (if a rec file) or character (if a UASC file), 
write positions the stream marker to point to the next record or character in the file. 

• Writeln can access UASC files only. It is similar to write except that after writing the information, 
writeln sets the stream marker to the character immediately after the next end-of-line character. 

• Page can access UASC files only. Use it to insert a formfeed (page advance) into the file. 

In addition to the standard Pascal output procedures, DOMAIN Pascal also supports the replace proce- 
dure. Use the replace procedure to substitute a new record for an existing record in a rec file, replace has 
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the distinction of being an output procedure that you can call only when the file has been open for input. 
In other words, before you call replace, you must first call open and reset to open the file for reading. 
Replace is usually used with find. Use find to skip through a rec file looking for a particular record, then 
use replace to modify the record in its place. 

8.2.5 Closing a File 

When a program terminates (naturally or as a result of a fatal error) , the operating system automatically 
"closes" all open files. "Closing" means that the operating system unlocks the file. When the operating 
system closes a rec file, it automatically preserves any changes made to the rec file. However, when the 
operating system closes a text file that was open for output, there is a possibility that some modifications 
won't be preserved. To ensure that all modifications are kept, make sure that the last output operation on 
the file is a writeln. 

DOMAIN Pascal supports a close procedure whose purpose is to close a specified open file. Since the op- 
erating system does this automatically at the end of the program, you ordinarily don't have to call close. 
However, it is good programming practice to close all open files as soon as your program is finished using 
them. Open files tie up process resources and may cause your program to needlessly lock a file that an- 
other program wants to access. 
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The majority of this chapter is devoted to detailing compiler errors and warnings. However, we start this 
chapter with a discussion of the errors reported by the predeclared procedures open and find. 

9,1 Errors Reported by Open and Find 

The open and find procedures are the only two predeclared DOMAIN Pascal routines that return an er- 
ror status parameter. This parameter tells you whether or not the call was successful. If the call was suc- 
cessful, the operating system returns a value of in the error status parameter. If the call was not success- 
ful, the operating system returns a number symbolizing the error. Your program is responsible for han- 
dling the error. You may wish to print the error and terminate execution. Possibly, you may wish to code 
your program so that it can take appropriate action when it encounters an error. 

This error status parameter is identical to the error status parameter returned by all system calls. This is 
more than coincidental since open and find are executed as stream calls at runtime. For complete details 
on using the error status parameter, refer to Programming With General System Calls. For an overview 
relevant to open and find, read the following section. 

9.1.1 Printing Error Messages 

To print an error message generated by an errant open or find, you must do the following: 

• Put the following two include directives in your program just after the program heading: 

%INCLUDE ' /sys/ ins/base. ins. pas' ; 
%INCLIJDE '/sys/ins/error. ins. pas' ; 

Make sure you put base . ins . pas before error . ins . pas. 
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• Declare the error status parameter with the status_$t data type; for example, 

VAR 

err_stat : status_$t; {status_$t is declared in base. ins. pas} 

• Specify the error status parameter as the all field of the error status variable; for example, 
OPEN(f, pathnamel, 'NEW', err_stat .all) ; 

• Call the error_$print procedure with the error status parameter as its sole argument; for ex- 
ample, 

error_$print (err_stat) ; 

{The error_$print procedure is defined in error. ins. pas} 

The following program puts all the steps together: 
Program test; 

%INCLUDE ' /SYS/INS/BASE . INS . PAS' ; 
%INCLUDE '/SYS/INS/ERROR. INS. PAS' ; 

VAR 

f : text ; 
err_stat : status_$t; 

BEGIN 

OPEN(f, 'grok', 'OLD', err_stst .all) ; 

Error_$print (err_stat) ; 
END. 

The error_$print procedure writes the error or warning message to stdout. If there is no error or 
warning, error_$print writes the following message to stdout: 

status (OS) 



9.1.2 Testing For Specific Errors 



The previous subsection introduced the status_$t data type and its all field. This section describes 
another field in status_$t — the code field. The code field of status_$t contains a number that 
corresponds to a particular error. To test for a specific error, compare this code field against expected er- 
rors. Table 9-1 lists the common error codes returned by open and Table 9-2 lists the common error 
codes returned by find. The symbolic names come from the Isyslinslstreams.ins.pas file. To use these 
symbolic names, all you have to do is list this file as an include file. 
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Table 9-1. Common Error Codes Returned By Open 



Code 


Symbolic Name 


Cause of Error 


1 


stream_$not_open 


You specified a file_history of 'NEW, but the 
pathname existed. Furthermore, the type UID (rec 
file or USAC) of this existing file differed from the 
type UID of the file you were trying to open. 


14 


stream_$already_exists 


You specified a file_history of 'NEW, but the 
pathname already exists. 


21 


stream_$name_not_found 


You specified a file_history of 'OLD', but the 
pathname does not exist. 


28 


stream_$object_not_found 


You specified a file_history of 'OLD', but the 
operating system cannot locate the disk containing 
the pathname. (Indicates network problems.) 


45 


stream_$insufficient_rights 


The ACL of the pathname prohibits you from 
opening the file. 



Table 9-2. Common Error Codes Returned By Find 



O 



Code 


Symbolic Name 


Cause of Error 


1 
9 


stream_$not_open 
stream_$end_of_fiIe 


You called find, but without the file being 
open. 

You specified a record number greater than the 
number of records in the file. 



For example, consider the following program fragment, which tries to first open pathname my_bookl. If 
this pathname exists, the program then attempts to open pathname my_book2. 

Program test; 



%INCLIJDE Vsys/ins/base. ins. pas' ; 
%INCLUDE '/sys/ins/error. ins. pas' ; 
%INCLUDE '/sys/ins/streams. ins. pas' ; 

VAR 

fl, f2 : text; 

st : status_$t; 

BEGIN 

open(fl, 'my_bookl', 'NEW, st.all); 
if St. code = stream_$already_exists then 
open(f2, 'my_book2', 'NEW, st.all); 
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9.2 Compiler Errors and Warnings 

When you compile a program, the compiler reports errors and warnings. 

An error indicates a problem severe enough to prevent the compiler from creating an executable object 
file. 

A warning is less severe than an error; a warning does not prevent the compiler from creating an executa- 
ble object file. The warning message tells you about a possible ambiguity in your program for which the 
compiler believes it can generate the correct code. 

The following pages list the common DOMAIN Pascal compiler error and warning messages, and suggest 
ways to handle them. In addition, remember the cardinal rule of Pascal debugging: 

LOOK FOR MISSING SEMICOLONS 

For example, suppose the compiler reports an error at line 50. Further, suppose that you stare at line 50 
in disbelief, knowing full well that you have written a perfect statement. In frustration, you pick up this 
manual and throw it out the window. A friend comes in, looks at you, looks at your program, and says 
"You forgot a semicolon at line 49." The day is saved, you get the promotion, and you send the technical 
writer a note of apology. 

9.2.1 Error and Warning Message Conventions 

The error and warning messages listed in the rest of this chapter follow these conventions: 

• Keywords in the message text are capitalized, since that's the way they appear on your screen. In 
the accompanying explanatory text, they are lowercase bold, as they are elsewhere in this manual. 

• Italicized words in the message text indicate values that the compiler fills in when generating the 
message. For example, suppose your program contains the following: 

PROGRAM err_test; 
VAR 

num : integerlT ; 



Because the fragment includes an undefined data type (integerlT), it triggers Error 23, which 
reads: 

23 ERROR Identifier has not been declared in routine name_of_routine . 

When you compile, identifier and name_of_routine are filled in like this: 

(0003) num : integerlT; 

******** Line 3: [Error 023] INTEGERIT has not been. declared in 
routine ERR TEST. 
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9.2.2 Error and Warning Messages 

Following are DOMAIN Pascal's compiler error and warning messages. 



ERROR 



Unterminated comment. 



2 ERROR 



3 ERROR 



4 ERROR 



6 ERROR 



o 



7 ERROR 



8 ERROR 



You started a comment, but you did not close it, or you closed it with the 
wrong delimiter. Comment delimiters must match unless you compile with 
the -iso switch. If you don't compile with that switch and you start a com- 
ment with {, you must end it with } . Similarly, if you start a comment with 
(*, you must end it with *). If you start a comment with ", you must end it 
with ". 

Improper numeric constant. 

You specified a base that fell outside the legal range of 2 to 16. For example, 
you cannot specify a number in base 32. Perhaps you mistakenly specified 
the integer first and the base second. (See the "Integers" section in Chapter 
2 for an explanation of base.) 

Unterminated character string. 

You started a string with an apostrophe ('), but you forgot to end it with an 
apostrophe. See Chapter 2 for a definition of string. 

Bad syntax (token). 

The compiler encountered token when it was expecting to find something 
else. 



Period expected at end of program (symbol) . 

You must finish the program with an end statement followed by a period. 
symbol is the final character that the compiler found in your source code. 
Typically, symbol is /EOF/ (an end-of-file character) or a semicolon. The 
most frequent cause of this error is putting a semicolon rather than a period 
after the final end. 



Text following end of program (token) . 

You have put some text other than a comment after the end of the program. 
The phrase "END. " marks the end of the program. You can put comments 
after the end of the program, but you cannot put anything else there. 

PROGRAM or MODULE statement expected (token). 

The first noncomment in your source code must be either a program heading 
or a module heading. The compiler found token instead of a program or 
module heading. DOMAIN Pascal also issues this error when there is some 
sort of mistake in your program or module heading. Chapter 2 describes the 
program heading. Chapter 7 describes the module heading. 



> 



10 ERROR 



Semicolon expected at end of program/module statement (token) . 

You forgot to end your program or module heading with a semicolon. 
DOMAIN Pascal encountered token when it was expecting a semicolon. 
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11 



ERROR 



Improper declarations syntax (token). 

DOMAIN Pascal found an unexpected token when processing a declaration 
part. 



12 



ERROR 



Improper CONST statement syntax (token). 

You made a mistake when declaring a constant. See Chapter 2 for the correct 
format. Token is the invalid token that DOMAIN Pascal encountered. A 
possible trigger for this error is that you tried to declare two identifiers for the 
same constant value as in the following example: 



13 



ERROR 



14 



WARNING 



CONST 

x.y = 5; 

Improper TYPE statement syntax (token). 

You made a mistake in the type declaration part of your program. DOMAIN 
Pascal encountered token when it was expecting something else. See Chapter 
2 for the correct format of the type declaration part. A possible trigger for 
this error is that you used the wrong symbol to associate the identifier with its 
type as in the following example: 

TYPE 

long := int6ger32; 

Datatype cannot be PACKED. 

You used the keyword packed in front of some data type other than record. 
The only data type DOMAIN Pascal packs is record. Datatype is the data 
type you tried to pack. In order to conform to the ISO standard, DOMAIN 
Pascal recognizes the packed syntax for data types other than record, but it 
does not actually pack those other data types. 



15 



ERROR 



Improper type specification token. 

You made some mistake when specifying a data type in the var declaration 
part. Token identifies the unexpected part of the var declaration part. For 
example, the following declaration triggers this error because r is a variable, 
not a data type: 



VAR 



r : real ; 

data : array [1.. 10] of r; 



See Chapter 2 for a complete description of the var declaration part. 



16 



ERROR 



Improper enumerated constant syntax (message). 

All constants in an enumerated type must be valid identifiers. See Chapter 2 
for a definition of identifier. Message identifies the first character or token 
that did not conform to the rules for identifiers. 
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17 ERROR 



OF expected in SET specification (token). 

When you declared a set type or set variable, you forgot to specify the key- 
word of in between the word set and the base type. Refer to Chapter 3 for 
information on declaring set types. DOMAIN Pascal encountered token 
rather than the keyword of. 



18 ERROR 



Improper ARRAY specification syntax (token). 

You declared an array incorrectly. See Chapter 3 for details on declaring ar- 
rays. TOKEN is the token that DOMAIN Pascal encountered when it ex- 
pected to find something else. 



19 ERROR 



o 



Improper RECORD specification syntax (token). 

You declared a record incorrectly. See Chapter 3 for details on declaring re- 
cords. DOMAIN Pascal encountered token when it expected to find some- 
thing else. A common trigger of this error is a type declaration such as the 
following: 



TYPE 

student = record 
a : integer32; 

b = boolean; {cause of error. '=' should be ':'} 
end; 



20 ERROR 



O 



Improper pointer specification (token) . 

You declared a pointer incorrectly. See Chapter 3 for details on pointing re- 
cords. DOMAIN Pascal encountered token when it expected to find some- 
thing else. The following type declaration triggers this error, because the up- 
arrow (") can only appear before a type name, not a type specification: 



TYPE 



ptr to ptr to long = '"'integer32; 



o 



21 ERROR 



Improper VAR statement syntax (token). 

In a variable declaration, you probably forgot to specify a semicolon after the 
data type. Perhaps you specified a comma instead of a semicolon, or perhaps 
you did not specify any punctuation mark at all. This error also occurs if you 
begin an identifier with a digit (0-9) or dollar sign ($). 



22 ERROR 



Parameter list must only be specified when the procedure or function is 
declared as FORWARD. 



You specified the parameter list for this routine in two places: first when you 
specified forward or extern and second in the routine heading itself. To 
correct this error, eliminate the second parameter list. 
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23 ERROR 



Identifier has not been declared in routine name_of_routine. 

Several conditions can trigger this error. You might have used identifier in the 
code portion of name_of_routine without identifier being accessible to this 
routine. Study the "Global and Local Variables" and "Nested Routines" sec- 
tions in Chapter 2 to learn about the scope of declared identifiers. 



Another possible trigger for this error is that you tried to make a forward call 
to a procedure without declaring the procedure with the forward attribute. 
(See the "Routine Attribute List" section in Chapter 5 for details on the for- 
ward attribute.) 



This error also can occur if you specify a data type that either is invalid or 
that you've forgotten to define in the type section of your program. 



24 ERROR 



Multiple declaration of identifier, previous declaration was on line 
line number. 



You declared identifier (which could be a data type, variable, constant, label, 
or routine) more than once. 



25 ERROR 



Improper MODULE structure (token). 

The compiler was expecting to encounter a procedure or function declara- 
tion, but found token instead. Remember, that unlike a program, the action 
part of a module must always be contained inside a named routine. 



26 ERROR 



Number of array subscripts exceeds limit of seven. 
DOMAIN Pascal supports arrays of up to seven dimensions. 



29 ERROR 



Subrange bound (token) is not scalar. 

You were trying to declare an array or subrange, but one of the bounds of the 
subrange was not a scalar. The scalar types are integer. Boolean, char, enu- 
merated, and subrange. The token is the token that DOMAIN Pascal en- 
countered when it was searching for a scalar expression. 



30 ERROR 



Lower bound of subrange (lower_bound) is not of the same type as the 
upper bound (upper _bound) . 

You were trying to declare an array or subrange, but the data type of 
lower_bound is not the same data type as that of upper_bound. The types 
must match. 



31 ERROR 



Lower bound of subrange (left_scalar) is greater than the upper bound 
(right jscalar) . 

You were trying to declare an array or subrange, but you set the value of the 
left_scalar to a higher value than the value of the rightjscalar. The left_sca- 
lar must be lower than the rightjscalar. 
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32 ERROR 



Base type (type) of SET is not scalar. 

You tried to declare a nonscalar type as the base type of a set variable or 
type. The scalar types are integer, char, Boolean, enumerated, and sub- 
range. Type is the token that DOMAIN Pascal encountered instead of a sca- 
lar type. 



33 ERROR 



34 ERROR 



SET elements must be positive (-) . 

You tried to declare a set with a base type of integer or subrange, but 
DOMAIN Pascal discovered a negative number in the base type. 

SET exceeds limit of 256 elements {(token)). 

DOMAIN Pascal cannot store a set that exceeds 256 elements. See the "In- 
ternal Representation of Sets" section in Chapter 3 for details. 



35 ERROR 



Improper use of (identifier), only a TYPE defined name is valid here. 

The compiler was expecting a data type, but you specified an identifier in- 
stead. Possibly, you tried to create a pointer variable with improper declara- 
tions like the following! 



VAR 



X : integer; 
y : "x; 



See the "Standard Pointer Type" section in Chapter 3 for details on setting 
up pointer types. 



36 ERROR 



Multiple declaration of variable in parameter list. 

You declared variable more than once in the parameter list of a procedure or 
function. 



37 ERROR 



PROCEDURE/FUNCTION name required (token) . 

You used the keyword procedure or function without specifying a valid iden- 
tifier immediately after it. See the "Identifiers" section in Chapter 2 for a 
definition of a valid identifier. Token is either the name of the invalid identi- 
fier or the null set (if you did not supply any name at all) . 



38 ERROR 



Improper PROCEDURE/FUNCTION declaration (token). 

You were probably confusing procedure with function. A function has a data 
type, and a procedure does not; therefore, the following declaration triggers 
this error: 



procedure one (r2 : single) : real; 
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39 



ERROR 



Improper parameter declaration (token) . 

You did not specify the parameter list of your procedure or function in the 
correct manner. A common cause of this error is using semicolons incor- 
rectly in the parameter list. (See Chapter 5 for details on parameter lists.) 
DOMAIN Pascal encountered token when it was expecting something else 
(probably a semicolon). 



40 



ERROR 



Colon expected in FUNCTION declaration (token). 

You forgot to put a colon before the type specification of the function; for ex- 
ample, compare the right and wrong ways to declare a function: 



FUNCTION pyth_theorem(a : integerlB) real; {Wrong!} 
FUNCTION pyth_theorein(a : integerl6) : real; {Right } 

DOMAIN Pascal found token instead of a colon. 



42 



ERROR 



FUNCTION type specification required. 

You forgot to specify a data type for the function itself; for example, compare 
the right and wrong ways to declare a function: 



{wrong} FUNCTION pyth_theorem(a : integerlB) ; 
{right} FUNCTION pyth_theorem(a : integerlB) 



real; 



43 



ERROR 



CASE type is not scalar. 

You specified an expression in a case statement that did not have a scalar 
data type. The scalar data types are integer. Boolean, char, enumerated, and 
subrange. For example, the following case statement triggers this error: 



VAR 



real; 



BEGIN 

CASE r OF {error: r is real, but should have been 
integer or integer subrange. } 

1 : writeln('One') ; 

2 : writeln('Two') ; 
end; 
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44 ERROR 



Constant is not of the correct type for the CASE on line number. 

You specified a constant in a case statement that was not the same data type 
as the expression of the case statement. For example, the following case 
statement triggers this error: 



VAR 



integerlB; 



CASE r OF 

1.5 : writeln('One') ; 

2 : writeln('Two') ; 
end; 



{error: 1.5 is a real; 
it should be integer.} 



45 ERROR 



(Constant) is outside the subrange of the CASE on line number. 

In a CASE statement, you specified a constant that was not within the de- 
clared range of the case. For example, the following case statement triggers 
this error because the constant 5 is outside the declared subrange to 3. 



46 ERROR 



VAR 

x : 0. .3; 
BEGIN 

CASE X OF 
5 : . 



{error} 



Constant has already occurred as a CASE constant on line number. 

You specified the same constant more than once in the same case statement. 
For example, the following case statement triggers this error because constant 
6 appears twice: 



o 



CASE r OF 

4 : writelnC square root is rational'); 

5,6,7 : writelnC square root is irrational'); 

6 : writeln('even' ) ; {error} 

end; 



47 ERROR 



48 ERROR 



Token is not a valid option specifier. 

You specified token in an OPTIONS clause, but token is not a valid option. 
See the "Routine Options" section in Chapter 5 for details. 

Include file name must be quoted (token) . 

You used the %include directive but forgot to put the name of the include 
file in apostrophes. Token is the token that DOMAIN Pascal found when it 
was expecting to find an apostrophe. 



o 



49 ERROR 



Too many include files. 

Note that this error can be triggered by include files nested within include 
files. To correct this error, you can break the program into separately com- 
piled modules. 
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50 ERROR 



Token is not a recognized option. 

You specified token as a compiler directive, but token is not a valid compiler 
directive. Refer to the "Compiler Directives" listing in Chapter 4 for a de- 
scription. Possibly, you put a superfluous percent sign (%) in your program. 
Another possibility is that you specified token on your compile command line 
as a compiler option. If you do this, the operating system returns this error 
message. See Chapter 6 for a complete list of compiler options. Possibly, 
you caused this error by trying to compile two files at once, and the compiler 
interpreted the second file as an (invalid) option. 



51 ERROR 



Include file pathname is not available. 



52 ERROR 



53 ERROR 



54 ERROR 



55 ERROR 



56 ERROR 



You specified a pathname for an include file, but either it does not exist or 
network problems prevent the compiler from accessing it. 

Semicolon expected following option specifier (token). 

You specified compiler directive %debug or %eject but forgot to specify a 
semicolon immediately after the directive. See the "Compiler Directives" 
listing in Chapter 4. 

Multiple declaration of identifier in RECORD field list. 

You specified the same field twice in a record declaration. For example, the 
following record declaration triggers this error because x is declared twice: 

r = record 

X : Boolean; 

X : integerl6; {error} 
end ; 

Array bound type is not scalar (datatype) . 

You specified datatype as the index type of an array. However, datatype must 
be a scalar data type. The scalar data types are integer, char, enumerated, 
subrange, and Boolean. 

Improper LABEL statement syntax (token). 

Labels must be unsigned integers or identifiers, but DOMAIN Pascal found 
token instead. 

Multiple definition of element, previous definition was on line number. 

You declared the same element (i.e., variable, data type, constant, label, pro- 
cedure, or function) twice. 
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57 ERROR 



58 ERROR 



59 ERROR 



Improper usage of identifier, only a LABEL name is valid here. 

You used identifier as a label, but you had already declared it as a variable, 
type, or constant. Possibly, you accidentally put a colon (:) immediately fol- 
lowing the identifier in the action part of your program. The colon could 
cause the compiler to interpret the identifier as an illegal label. Perhaps you 
meant to specify a statement like the following: 

X := 8; 
but you forgot the equal sign and ended up specifying the following instead: 

X : 8; 

Constant is declared as a CONST name, and cannot be assigned a value. 

You mistakenly tried to assign a value to a constant. Perhaps you should 
have declared constant as a variable rather than as a constant. 

Improper use of identifier, only a VAR name is valid here. 

You tried to assign a value to an identifier that is not a valid variable. Possi- 
bly, you tried to assign a value to a type rather than a variable. For example, 
code like the following causes this error: 

TYPE 

int = integer32; 
VAR 

q : int; 
BEGIN 

int := 8; {wrong} 
q := 8; {right} 



O 



60 ERROR 



Improper use of identifier, only a VAR or CONST name is valid here. 

You tried to assign the value of a data type or label to a variable. Identifier 
must be a variable or a constant. 



61 ERROR 



Token is not an ARRAY. 

You specified an expression of the format 



TOKEN [ . 



] 



62 ERROR 



This format is reserved for specifying a particular element of an array; how- 
ever, token is not an array variable. Possibly, you were trying to call a proce- 
dure or function and used brackets rather than parentheses. 

Variable is not a pointer variable. 

You tried to dereference a variable that was not declared as a pointer vari- 
able. (See the "Pointer Operations" listing of Chapter 4.) 
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63 



ERROR 



64 



ERROR 



Token is not a RECORD. 

DOMAIN Pascal was expecting a record variable, but it found token instead. 
(See the "Record Operations" listing of Chapter 4.) 

Token is not a field of record. 

DOMAIN Pascal was expecting a field of the record variable, but it found to- 
ken instead. 



65 



ERROR 



Too many subscripts to array _yar table. 

You declared array _variable as an n-dimensional array, but you have speci- 
fied more than n subscripts for the array at this line. 



66 



ERROR 



67 ERROR 



Kind_of_declaration declaration must precede internal PROCEDURE and 
FUNCTIONS declarations. 

You stuck a routine in the middle of a declaration part. A nested routine 
must come at the end of a declaration part (not in the beginning or the mid- 
dle). 

Improper use of identifier, only a FUNCTION name is valid here. 

You probably had no intention of calling a function and are puzzled as to why 
you got this message. If you used a statement of the form 

IDENTIFIER (TOKEN) 

then DOMAIN Pascal assumed that you were trying to call a function. Possi- 
bly, you were trying to access an array, but you used parentheses instead of 
brackets. 



68 ERROR 



The types of operandi and operandi are not compatible with the operator 
operator. 

You made a mistake such as specifying (21.0 DIV 3.0). (It's a mistake be- 
cause div only accepts integer operands.) See Chapter 4 for a complete list 
of operators and their valid operands. 



69 ERROR 



The type of operand is not compatible with the operator operator. 
You made a mistake such as specifying an expression like: 



(NOT 3.0) 

It's a mistake because not only accepts Boolean operands. See the beginning 
of Chapter 4 for a summary of operators. 



70 ERROR 



Errors 



Incompatible operands [operandi , operandi] to the operator operator. 
See Table 4-1 for a summary of operators. 
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71 ERROR 



72 WARNING 



Subscript expr to array name _pfjxr ray is not of the correct type. 
See the "Array Operations" listing in Chapter 4. 

No path to statement (name_of_statement), or no branch generated for it. 

The program never reaches this statement; therefore, the compiler does not 
generate any code for it. Sometimes a goto statement triggers this warning. 



73 ERROR 



Statement expression is not Boolean. 

You were using a non-Boolean expression in a manner reserved for Boolean 
expressions. For example, the following program fragment triggers this error 
because variable int is an integer, not a Boolean: 



VAR 



int : integer; 
b : Boolean; 



if int then 
if int=9 then 
if b then 



.{error, int is not a Boolean expr. } 
.{no error, int=9 is a Boolean expr.} 
.{no error, b is a Boolean expr. } 



74 



ERROR 



O 



FOR statement index variable is not scalar. 

The scalar data types are integer, Boolean, char, enumerated, and subrange. 
If you specify an index variable with a data type other than one of these five 
types, DOMAIN Pascal issues this error. See the for listing in Chapter 4. 



75 



ERROR 



77 



ERROR 



FOR statement initial value expression is not compatible with the index 
variable. 

You specified a start_expression of a different data type than the index vari- 
able. See the for listing in Chapter 4. 

FOR statement limit value expression is not compatible with the index 
variable. 

You specified a stop expression of a different data type than the index vari- 
able. See the for listing in Chapter 4. 



79 



ERROR 



O 



Assignment statement expression is not compatible with the assignment 
variable. 

You tried to assign the value of an expression to a variable, but the data type 
of the value and the variable were not compatible. In general, the data type 
of the expression must match the data type of the variable; however, there 
are a few exceptions. For example, you can assign an integer expression to a 
real variable (though you cannot do the reverse). In most cases, this error is 
just a simple programming mistake, but if you do intend to assign a value to a 
variable of a different data type, refer to the "Type Transfer Functions" list- 
ing of Chapter 4. 



9-15 



Errors 



ERROR 



82 



ERROR 



Too many arguments to routine. 

You attempted to call routine, but you tried to pass more arguments to rou- 
tine than it was expecting. The number of arguments cannot exceed the 
number of parameters declared in the parameter list of the routine. See 
Chapter 5 for details on parameter passing. 

Too few arguments to routine. 

You attempted to call routine, but you tried to pass fewer arguments to rou- 
tine than it was expecting. If you want to pass n arguments to a routine de- 
claring more than n parameters, you must use the variable routine attribute 
(which is described in the "Variable" section in Chapter 5). 



83 



ERROR 



Argument n to routine is not compatible with the declared argument type. 



84 



ERROR 



You tried to call routine, but the Nth argument in the call does not have the 
same data type as the Nth parameter. You can suppress this error by using 
the univ routine attribute. See Chapter 5 for details on parameter passing. 

Argument n to routine is not within the declared argument subrange. 



You tried to pass a subrange expression as the Nth argument to call routine, 
but the value of the expression was not within the declared range of the sub- 
range. 



85 



ERROR 



Improper use of element, only a PROCEDURE name is valid here. 

DOMAIN Pascal assumed you were trying to call a procedure, but element is 
not a procedure. Any statement having the following format is assumed to be 
a procedure call: 



IDENTIFIER ( anything ); 



86 



ERROR 



Unrecognized statement (token). 

The compiler could not classify a statement into one of the basic categories of 
DOMAIN Pascal statements (such as assignment, procedure call, function 
call, goto, repeat, etc.). Possibly, you misspelled a keyword, or perhaps you 
forgot to close the previous statement with a semicolon. 



87 



ERROR 



GOTO label expected (token). 

You forgot to specify a label immediately after the keyword goto. DOMAIN 
Pascal expected a declared variable, but found token instead. See the goto 
listing of Chapter 4. 



89 



ERROR 



The value of number is outside the range of valid set elements. 

You tried to assign a number greater than 256 to a set. See the "Set Opera- 
tions" listing in Chapter 4 for details on assigning values to sets, and see the 
"Sets" section in Chapter 3 for information on declaring set types and vari- 
ables. 
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92 ERROR 



Function type must only be specified when the function is declared 
FORWARD. 

You specified a function as forward, but you mistakenly specified the data 
type of the function twice. You must only specify the data type of the func- 
tion once. Specify the data type when you specify forward. See the "For- 
ward" section in Chapter 5 for an explanation of forward. 

(Option) specifier is not valid when defining a procedure/function previ- 
ously declared to be FORWARD. 

If option is forward, then you probably declared forward twice for the same 
routine. Possibly, you declared a routine as forward, but you also used the 
routine with both define and extern. If option is extern, then you probably 
declared extern twice for the same routine. 



93 



ERROR 



Improper use of the DEFINE statement. 

See Chapter 7 for a complete description of the define statement. 



94 



ERROR 



Improper DEFINE statement structure. 

See Chapter 7 for a complete description of the define statement. 



o 



95 



96 



ERROR 



ERROR 



Multiple declaration of element in DEFINE statement. 

You used define to define the same element twice. See Chapter 7 for a com- 
plete description of the define statement. 

Constant value cannot be evaluated at compile time. 

You specified an expression in a const declaration that the compiler could 
not reduce to a constant. For example, the following declarations trigger this 
error because x is not a constant: 



o 



97 ERROR 



VAR 



x : integer; 



CONST 

ax : addr(x) ; 

Label label is never defined. 



98 ERROR 



You declared a label in the label declaration part of a routine, but you never 
specified this label inside the code portion of the routine. Possibly, you de- 
clared the label in the label declaration part of a routine, but specified this 
label inside the code portion of another routine. See Chapter 2 for a descrip- 
tion of labels, and see the goto listing in Chapter 4 for a description of the 
goto statement. 

Improper PROCEDURE/FUNCTION structure (token) . 

Refer to Chapter 2 for the rules on routine structure. Possibly, you put a pe- 
riod instead of a semicolon at the end of a routine. 
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BEGIN expected in routine name_of_routine\ found "token" . 

The code portion of a routine must start with the keyword begin. DOMAIN 
Pascal discovered token instead of begin. Refer to Chapter 2 for the rules on 
routine structure. Note that every routine (including the main program) must 
at least include the keywords begin and end. 



C 



100 ERROR 



101 ERROR 



102 ERROR 



103 ERROR 



END expected; found "token" . 

You forgot to mark the finish of a routine with an end statement. Ignore the 
line number the error is reported at; the compiler usually does not discover 
this error until the end of the program. See Chapter 2 for the rules on pro- 
gram structure. 

Statement separator expected (token). 

DOMAIN Pascal discovered two statements with nothing to separate them. 
You probably made one of the following three mistakes. First, you forgot a 
semicolon. Second, you forgot a closing end in a compound statement. 
Third, you forgot an else in an if/then/else statement. 

Improper argument list (token) . 

You forgot to specify a ")" to terminate a type transfer function. See the 
"Type Transfer Functions" listing in Chapter 4. 

THEN expected in IF statement (token). 

You forgot the then part of an if/then/else statement. For details on then, 
see the if listing in Chapter 4. 



105 ERROR 



OF expected in CASE statement ((token)). 
A case statement must begin with the format 



106 ERROR 



107 ERROR 



109 ERROR 



CASE expr OF 
but you forgot the keyword of. See the case listing in Chapter 4. 

CASE label expected (token). 

In a case statement, you specified a statement without specifying a constant. 
Possibly, you forgot to conclude the case statement with end. See the case 
listing in Chapter 4. 

END/OTHERWISE expected in CASE statement (token) . 

You probably forgot to conclude a simple statement with a semicolon or a 
compound statement with an end. 

DO expected in WHILE statement (token). 

You forgot to specify the keyword do following the condition in a while state- 
ment. 
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no 



ERROR 



UNTIL expected in REPEAT statement (token) . 



Ill 



112 



113 



ERROR 



ERROR 



ERROR 



DOMAIN Pascal found token instead of until in a repeat statement. Refer 
to the repeat listing in Chapter 4. 

:= expected in FOR statement (token). 

DOMAIN Pascal found token instead of := in a for statement. Refer to the 
for listing in Chapter 4. 

TO or DOWNTO expected in FOR statement (token). 

DOMAIN Pascal found token instead of to or downto. Refer to the for list- 
ing in Chapter 4. 

DO expected in FOR statement (token). 

DOMAIN Pascal found token instead of do. Refer to the for listing in Chap- 
ter 4. 



114 



ERROR 



Improper WITH statement (token). 
Refer to the with listing in Chapter 4. 



o 



o 



115 



116 



ERROR 



ERROR 



DO expected in WITH statement (token). 
Refer to the with listing in Chapter 4. 

Improper expression (expression). 

A variety of situations could have caused this error. Probably, DOMAIN 
Pascal was expecting a keyword, and you either did not enter a keyword, or 
you did not enter a keyword that was appropriate to the situation. Expression 
is the inappropriate expression. For example, you can trigger this error by 
using the keyword if without using the keyword then. Another possibility is 
that you forgot a semicolon on the line preceding the line that the compiler 
reported the error. Another possibility is that you began an identifier with a 
digit or dollar sign ($) rather than a character. 



117 ERROR 



Identifier expected (token). 

DOMAIN Pascal was expecting an identifier and found token instead. Chap- 
ter 2 defines identifiers. 



120 ERROR 



OF expected in FILE declaration (token). 

You used the keyword file without following it with the keyword OF. See 
Chapter 3 for details on declaring file types. 



o 



121 ERROR 



Expression/constant cannot be passed as argument n to routine. 

You specified an expression or constant as the nth argument to routine. 
However, the nth parameter of routine is declared as var or in out, and you 
can only pass variables as arguments to such a parameter. 
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122 



ERROR 



123 



ERROR 



Improper use of identifier. 

You probably tried to call a predeclared procedure as a function or a 
predeclared function as a procedure. See Chapter 5 for a description of the 
difference between calling procedures and calling functions. 

Attempted assignment to (variable), a FOR-index variable, or formal pa- 
rameter marked as IN. 

You either tried to assign a value to variable inside a routine that declared it 
as in, or you tried to modify a FOR loop's index variable inside the loop. If 
you did the former, you can correct this error by changing the in parameter 
to in out or var. If your error was attempting to modify a for loop's index 
variable, you can eliminate the code inside the loop that modifies the vari- 
able. 



124 ERROR 



125 ERROR 



Routine requires TEXT file parameter. 

You specified a file of variable as an argument to routine, but routine re- 
quires a text variable instead. 

Procedure requires FILE parameter. 

You specified an illegal file parameter for open or close. Only identifiers are 
legal file parameters. Former FORTRAN programmers might have triggered 
this error by using an integer as a file parameter. Possibly, you forgot 
specify any file parameter at all. 



to 



126 ERROR 



Procedure cannot be performed on INPUT file. 

The standard input file (input) cannot be an argument to rewrite, put, or 
page. See the "Default Streams" section in Chapter 8 for details on input. 



127 ERROR 



Procedure cannot be performed on OUTPUT file. 

The standard output file (output) cannot be an argument to reset, get, eof, 
or eoln. See the "Default Streams" section in Chapter 8 for details on out- 
put. 



128 ERROR 



129 ERROR 



Argument to identifier is not a pointer reference. 

A predeclared procedure (typically new or dispose) requires an argument of 
a pointer type. 

Operand operandi is not compatible with (routine) . 

You tried to read a value into an expression; for example, consider the fol- 
lowing statements: 



READ(x + 1) ; {wrong} 

READLN(x +1); {wrong} 

READLN(x); x := x + 1; {right} 
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130 



ERROR 



Fraction width specified for operand (element) that is not of a REAL 
type. 

In a write or writeln statement, you specified a two-part field width for a 
nonreal expression. If the expression is real, you can specify an optional 
one- or two-part field width, but if the expression is not real, then you can 
only specify an optional one-part field width. See the write listing in Chapter 
4 for a complete description of field widths. 



131 



ERROR 



Field width specifier is not permitted. 

You can only specify a field width for a write or writeln statement. If you 
specify a field width for any other statement, DOMAIN Pascal issues this er- 
ror. When you call a procedure or function, DOMAIN Pascal interprets any 
colon (:) inside the call as a field width. 



132 



ERROR 



o 



Field width specifier (token) is not INTEGER. 

DOMAIN Pascal was expecting to find an integer field width, but found token 
instead. Remember, you format real numbers with a two-part field (not a 
decimal). Note that when you call a procedure or function, DOMAIN Pascal 
interprets any colon (:) inside the call as a field width. So, possibly you trig- 
gered this error with an inadvertent colon. 



133 



ERROR 



Type of operand (identifier) is not compatible with the routine operation. 

You tried to read or write an aggregate variable (such as an array or record) 
to or from a text (UASC) file. You can correct this mistake by specifying a 
rec file instead of an UASC file. If you must use a text file, you can correct 
the error by specifying a field (if a record) or an element (if an array) rather 
than the full aggregate. 



135 



ERROR 



136 



ERROR 



Improper file mode in OPEN. 

The file mode is the third argument to the predeclared open procedure. The 
file mode must be a character string, a string constant, or a variable whose 
data type is an array of char. See the open listing in Chapter 4 for details on 
file modes. 



Improper status argument in procedure. 

You specified a status argument to procedure that had a data type other than 
integer32. A common mistake is to misuse a status_$t variable. For ex- 
ample, compare the right and wrong ways to use such a variable in an open 
procedure: 



o 



%INCLIJDE '/sys/ins/base. ins. pas' ; 
VAR 

st : status_$t; 
fl, f2 : text; 

OPEN(fl, 'angerl', 'NEW, st) ; {wrong} 
0PEN(f2, 'anger2', 'NEW, st.all); {right} 

Refer to the open and find listings in Chapter 4 for details on syntax. 

9-21 Errors 



137 



ERROR 



Procedure cannot be used on a text file. 



138 



ERROR 



139 



ERROR 



140 



ERROR 



141 



ERROR 



142 



ERROR 



143 



ERROR 



144 



ERROR 



The first arg^ment to find or replace must be a variable of type file. You 
have mistakenly specified a variable of type text. Refer to the find or re- 
place listings in Chapter 4 for details. 

Record number is not integer in FIND. 

The second argument to the find procedure is the record number, and this 
argument must be an integer expression. Refer to the find listing in Chapter 
4 for details on syntax. 

Improper parameter list in PROGRAM statement ^1. 

You made a mistake in your program heading. If you specified a file list in 
the program heading, then make sure that you specified the files as identifiers 
(and not as strings). For example, compare the following two file lists: 

PROGRAM test (input, output); {right} 

PROGRAM test ('input', 'output'); {wrong} 

Compiler failure, unknown tree node. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 

Compiler failure, unknown top node. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 

Compiler failure, no temp space. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 

Compiler failure, lost value of node. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 

Compiler failure, registers locked. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 
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145 ERROR 



Compiler failure, no emit inst. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 



146 ERROR 



147 ERROR 



148 ERROR 



Compiler failure, procedure too large. 

The routine you are trying to compile may have exceeded compiler imple- 
mentation limits. Try to break the routine into multiple routines and modules 
and then recompile. If the problem still persists, please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 

Compiler failure, inst disp too large. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 

Compiler failure, obj module too large. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 



O 



149 ERROR 



Compiler failure, no free space. 

The compiler ran out of dynamic memory while compiling your program. Try 
to break the program into multiple routines and modules and then recompile. 
If the problem still persists, please contact your customer support representa- 
tive or mail us a UCR. (You can use the Shell command crucr to create a 
UCR form.) 



150 ERROR 



o 



Compiler failure, short branch optimization. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 



151 ERROR 



Routine was declared FORWARD on line number and never defined. 



152 ERROR 



o 



You specified routine as forward, but you did not define it in your program. 
See the "Forward" section in Chapter 5 for details on forward. 

Section name (identifier) conflicts with procedure or data section name. 

You specified identifier as a section name for a var declaration part; how- 
ever, identifier is a reserved section name. Please pick another name in- 
stead, or remove the section name completely. See the "Putting Variables 
Into Sections" section in Chapter 3 for details on naming sections. 



9-23 



Errors 



153 ERROR 



154 ERROR 



155 WARNING 



157 ERROR 



158 ERROR 



159 ERROR 



160 ERROR 



161 ERROR 



Improper section name specification token. 

You were declaring a section name for a group of variables, but you specified 
token rather than an identifier as the name of the section. See the "Putting 
Variables Into Sections" section in Chapter 3 for details on naming sections. 

Conflicting storage allocation specifications. 

You declared a variable as static and as belonging to a nondefault section 
name. It cannot be declared as both at the same time. 

Constant subscript (value _of_constant) to array name _of _array is out of 
range. 

The value _of_constant was not within the declared range of name_of_array. 
You must either use a different constant or expand the declared range of the 
array. See the "Arrays" section in Chapter 3 for a description of array decla- 
ration. 

Identifier was declared in a DEFINE statement but never defined. 

You used identifier in a define statement, but forgot to use it as the name of 
a procedure, function, or variable. See Chapter 7 for an explanation of the 
define statement. 

Improper OPTIONS specification (token). 

You made a mistake while declaring OPTIONS for a routine. Probably, you 
specified token instead of a valid routine attribute. Possibly, you forgot to 
mark the end of an OPTIONS clause with a semicolon. The valid routine at- 
tributes are listed in Chapter 5. 

Duplicate OPTIONS specification (routine jxttribute) . 

You specified the same routine attribute twice in an OPTIONS clause. You 
can only specify it once. The "Routine Options" section in Chapter 5 de- 
scribes the OPTIONS clause. 

Conflicting OPTIONS specification (routine _attribute) . 

You specified several routine attributes in an OPTIONS clause; however, rou- 
tine _attribute cannot appear in the same OPTIONS clause as one of the pre- 
vious routine attributes. For example, you cannot specify both forward and 
extern in the same OPTIONS clause. You can also trigger this error by mis- 
takenly using the same routine attribute twice. The "Routine Options" section 
in Chapter 5 describes the OPTIONS clause. 

Unrecognized OPTIONS specification (token). 

You specified token inside an OPTIONS clause, but token is not a valid rou- 
tine attribute (described in Chapter 5). 
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162 WARNING 



Conditional compilation user warning. 



You triggered a warning-level problem through misuse of the conditional 
compiler directives. More specific messages will follow this one. See the 
"Compiler Directives" listing of Chapter 4 for details on the conditional com- 
pilation directives. 



163 ERROR 



Conditional compilation user error. 

You triggered an error-level problem through misuse of the conditional com- 
piler directives. More specific messages will follow this one. See the "Com- 
piler Directives" listing of Chapter 4 for details on the conditional compilation 
directives. 



164 ERROR 



o 



Conditional compilation syntax error; look at prior "(PreProc)" message. 

"(PreProc)" is an abbreviation for the DOMAIN Pascal preprocessor. This 
error is telling you that the preprocessor found an error and passed it along to 
the compiler. The preprocessor found an error in a conditional compilation 
directive. (The conditional compilation directives are %var, %if, %then, 
%else, %config, %elseif, %elseifdef, %enable, %endif, and %ifdef.) Pos- 
sibly, you used a conditional compilation variable without having first de- 
clared it (with a %var directive) . Another possibility is that you used an op- 
erator other than and, or, and not in a predicate. See the "Compiler Direc- 
tives" listing in Chapter 4 for details. 



165 ERROR 



Conditional compilation not balanced. 

Probably, you forgot to end an %if directive with the %end directive. (Mak- 
ing this mistake may trigger several other errors including Error 6: "Period 
expected at end of program.") See the "Compiler Directives" listing in 
Chapter 4 for details. 



166 



ERROR 



o 



168 



ERROR 



169 



ERROR 



Compiler failure, data frame overflow. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 

Compiler failure, register consistency. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 

Compiler failure, no temp created. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 



170 



ERROR 



"^ 



Compiler failure, improper forward label at token. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 
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171 



ERROR 



Compiler failure, pseudo pc consistency. 



173 



ERROR 



The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 

Cannot take the address of internal routine identifier. 

You cannot pass identifier as an argument to the addr function, because it is 
an internal routine. An internal routine is any routine declared in the main 
program, any routine nested inside another routine, or any routine specified 
with the routine option internal. 



174 



ERROR 



Ptr is keyword 1 type but operand is a keyword!. 



You tried to assign a value that has a data type other than what the pointer is 
expecting. Remember that in DOMAIN Pascal, unless you use univ_ptr, a 
pointer can only point to a value of the specified data type. See Chapter 3 for 
a discussion of pointer types. 



175 



ERROR 



Incompatible function return types. 



176 



ERROR 



A pointer to a function is expecting a value of a particular data type to be re- 
turned to it, but you mistakenly tried to return a value of a different data type 
to it. See Chapter 3 for a discussion of pointer types. 

Incompatible VARIABLE arguments options. 

Possibly, there is a mismatch between a pointer to a procedure or function, 
and the pointer value you are actually trying to assign to it. 



177 



ERROR 



Incompatible number of parameters. 



178 



ERROR 



Possibly, there is a mismatch between a pointer to a procedure or function, 
and the pointer value you are actually trying to assign to it. 

Incompatible ECB options. 

Possibly, there is a mismatch between a pointer to a procedure or function, 
and the pointer value you are actually trying to assign to it. 



179 



ERROR 



Incompatible parameter passing conventions for parameter identifier. 



Possibly, there is a mismatch between the parameter-passing conventions de- 
clared for a pointer to a procedure or function, and the pointer value you are 
actually trying to assign to it. 



180 



ERROR 



Incompatible types specified for parameter identifier. 



Possibly, there is a mismatch between the parameter-passing conventions de- 
clared for a pointer to a procedure or function, and the pointer value you are 
actually trying to assign to it. 
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181 



ERROR 



INTERNAL option is illegal for PROCEDURE^ or FUNCTION'^ types. 



183 



ERROR 



You mistakenly tried to use the routine option internal in a procedure or 
function pointer. 

"[" expected; "token" found. 

The compiler was expecting to encounter a left bracket " [", but found token 
instead. 



184 



ERROR 



"]" expected; "token" found. 



The compiler was expecting to encounter a right bracket "]", but found token 
instead. 



185 



ERROR 



Illegal type of constant "token" for variable "identifier" . 

You were trying to initialize variable identifier, but you mistakenly specified a 
value token that did not have the same type as identifier. The compiler will 
not perform automatic type transfers for variable initializations in the var 
declaration part. 



188 ERROR 



Dynamic variable identifier cannot be initialized. 

By default, all variables declared in routines other than the main program will 
be allocated dynamically. You cannot initialize dynamic variables in the var 
declaration part. If you want to get around this problem, you can use the 
variable allocation clause static to force the compiler to store a routine vari- 
able nondynamically (i.e., statically). If you use static, the compiler lets you 
initialize the variable. 



190 ERROR 



o 



Cannot initialize null array identifier. 

You specified a null array (i.e., an array that takes up no space in main mem- 
ory) which by itself would only cause a warning; however, you mistakenly 
tried to initialize the null array. 



191 WARNING 



String initializer too long for name_of_array; truncated to fit. 

You tried to initialize name_of_array with a string that had too many charac- 
ters. The compiler is warning you that you lost one or more characters of the 
string in the initialization. To avoid this, you should probably use an asterisk 
in the index expression of the array. The asterisk tells the compiler to figure 
out how many characters the string requires and declares the array accord- 
ingly. See the "Defaulting the Size of an Array" section in Chapter 3 for de- 
tails. 



192 ERROR 



o 



Variable name is not EXTERN; cannot DEFINE it. 

You declared name in a var declaration part, and you tried to define it in a 
define statement. You can only specify name in a define statement if you 
also declare it as an extern variable. (See Chapter 7 for details.) 
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193 WARNING 



194 WARNING 



195 ERROR 



Space filling is NOT done for arrays greater than number bytes. 

You are assigning all the elements of a string to a larger array of char. The 
compiler is warning you that the remaining elements in the larger array may 
have garbage values in them. That is, it won't blank pad the remaining ele- 
ments in the array. 

Unbalanced comment; another comment start found before end. 

You specified two comment start delimiters without specifying a comment end 
delimiter in between them. You can suppress this warning with the 
-ncomchk compiler option (described in Chapter 6.) Refer to the "Com- 
ments" section in Chapter 2 for details on comments. 

Lower bound must be an integer value for upper bound of " * " . 

You used an asterisk (*) to force the compiler to determine the number of 
elements in the array, but you mistakenly specified a noninteger value as the 
lower bound of the array. For example, consider the right and the wrong way 
to use the asterisk: 



VAR 



X : array [ 1 . . * ] of char 
X : array ['a' . . *] of char 



'HELLO'; {right} 
'HELLO'; {wrong} 



196 WARNING 



Size of array is zero. 

You specified an array whose index makes no sense. For example, you 
specified an enumerated value for the lower bound and an asterisk for the 
upper bound. (See Chapter 3 for details on array declaration.) 



197 ERROR 



Illegal repeat count usage; valid for array elements only. 

See the "Using Repeat Counts to Initialize Arrays" section in Chapter 3. 



198 ERROR 



199 ERROR 



200 ERROR 



Illegal type for repeat count (token)', must be integer. 

See the "Using Repeat Counts to Initialize Arrays" section in Chapter 3 for 
details on using repeat counts. 

Illegal repeat count value (token); must be greater than zero. 

See the "Using Repeat Counts to Initialize Arrays" section in Chapter 3 for 
details on using repeat counts. 

Repeat count too large by number for array. 

See the "Using Repeat Counts to Initialize Arrays" section in Chapter 3 for 
details on using repeat counts. 



201 ERROR 



OF expected for repeat count. 

See the "Using Repeat Counts to Initialize Arrays" section in Chapter 3 for 
details on using repeat counts. 
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202 ERROR 



203 ERROR 



204 ERROR 



Illegal use of "*" repeat count for variable array identifier. 

See the "Using Repeat Counts to Initialize Arrays" section in Chapter 3 for 
details on using repeat counts. 

":=" expected in record initialization. 

You were trying to initialize a record field with a value, but you forgot the as- 
signment phrase (:=). Perhaps you mistakenly used (=) instead of (:=). 

Too many initializers for record init; field list exhausted at constant 
value _of_constant. 

If a record has n fields, you tried to initialize more than n fields. You can 
only initialize n or less than n fields. See the "Initializing Data in a Record" 
section in Chapter 3 for details. 



205 ERROR 



Size of type Jransfer Junction is not the same as the size of datatype. 

You misused a type transfer function. The size (in bytes) of the datatype and 
the type Jransfer Junction must be equal. Chapter 3 details the sizes of all 
data types. 



206 ERROR 



207 ERROR 



o 



208 ERROR 



:= expected in assignment statement (token). 

Probably, you made a mistake on the left side of an assignment statement 
that involved a type transfer function. 



Constant cannot be passed as argument n to routine. 

You tried to pass a constant as the nth argument to routine; however, the nth 
parameter in routine was declared as var, out, or in out. There are three 
ways to get around this problem. First, you can change var, out, or in out to 
in. Second, change var, out, or in out to a value parameter. Third, change 
the constant to a variable. See Chapter 5 for a complete explanation of pa- 
rameters. 



Expression (operator = token) cannot be passed as argument n to routine. 

You mistakenly tried to pass an expression as the nth argument to routine. 
The problem is that the nth parameter of routine is a var, out, or in out pa- 
rameter. You should probably change the parameter to become a value pa- 
rameter. See Chapter 5 for a complete explanation of parameters. 



209 WARNING 



Large {number _ofJytes bytes) copy of argument name_of_arg will be 
done when routine is invoked. 



You are trying to pass a large data structure (probably an array) as a value pa- 
rameter. This is going to take up a lot of CPU time at runtime. You should 
change the value parameter to a variable, in or out parameter. Chapter 5 de- 
scribes the various kinds of parameters. 
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210 WARNING Routine name_of_routine needs number bytes of stack, which approaches 

the maximum stack size of maxjsize bytes. 

You are trying to pass a large data structure (probably an array) as a value pa- 
rameter. Consequently, your program will probably execute quite slowly. 
You should change the value parameter to a var, in, out, or in out parame- 
ter. The "Parameter Types" section in Chapter 5 describes all the parameter 
types. 

211 WARNING Routine name needs number bytes of stack, which exceeds the maximum 

stack size of maxjsize bytes. 

You probably have a large data structure (usually an array) in your code, and 
you may be trying to pass the structure as a value parameter. For example, an 
array like this 



212 



ERROR 



213 



ERROR 



214 



ERROR 



VAR 

big_array : array [1. .100000] of integer32; 

might exceed the maximum stack size. 

If you try to run the program, you will probably get an "access violation" er- 
ror. If the structure is a value parameter, you should change it to a var, in, 
out, or in out parameter. The "Parameter Types" section in Chapter 5 de- 
scribes all the parameter types. 

This warning can occur when you compile a program on one type of worksta- 
tion, but not occur when you compile on another type. For example, your 
program might work fine on a DN460 but when you compile it on a DN330 
this warning might occur. This is because of the difference in virtual address 
space available on different nodes. 

Function name returns more than 32K bytes. 

The data type of the function consumes more than 32K bytes of memory. 
Probably, the data type of the function is a large array. Instead of passing the 
information back through the function, you should pass it back through a pa- 
rameter. 

Illegal FOR statement index variable; identifier is a record or an array ref- 
erence. 

DOMAIN Pascal does not permit a component of a record or an element of 
an array to be the index- variable in a for statement. 

Size of argument n to routine is not equal to the expected size of number 
bytes. 

You tried to pass a string as the nth argument to routine, but the nth parame- 
ter of routine was expecting a larger or smaller string. You must either 
change the size of the argument to match the size of the parameter, or you 
must declare the parameter as univ. See the "Univ" section in Chapter 5 for 
details. 
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228 ERROR 



234 ERROR 



Too many initializers for array init; "]" expected, "token" found. 

You specified more data for the array than the array can hold. (See Chapter 
3 for details on declaring arrays.) 



Compiler failure, too many nodes. 

This program is so large that the compiler cannot optimize it. You can try re- 
compiling with -opt (see Chapter 6), but we recommend that you reduce 
the size of the program by breaking it up into modules. Chapter 7 explains 
modules. 



235 WARNING 



Potential illegal use of FOR index variable (identifier) outside of FOR 
stmt. 



o 



236 ERROR 



DOMAIN Pascal forbids the use of the value of the index-variable after nor- 
mal termination of a for loop. The compiler generates this message if a for 
loop has no premature exits (exit or goto) and the value of the index-vari- 
able is used outside the loop. 

Floating-point constant "number" conversion problem. 

Number was so large that the compiler encountered an overflow error when it 
tried to convert it from a double to a single, from a double to an integer, or 
from a single to an integer. 



o 



237 ERROR 



Compiler failure, unexpected data init construct: token. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 



238 ERROR 



o 



Type_of_routinel identifier was previously declared as a type_of_routine2. 

You specified identifier as a forward procedure, but in the routine heading, 
you specified it as a function. Or, you specified identifier as a forward func- 
tion, but in the routine heading, you specified it as a procedure. You must 
declare it as a procedure in both places or as a function in both places. 



240 WARNING 



241 ERROR 



Size of constant (value) is greater than the number of bits (number) in 
packed field name', constant has been truncated. 

Value is outside the declared subrange of name. You must specify a value 
that falls within the declared range, redeclare name, or omit the keyword 
packed from the record declaration. (See the "Records" section in Chapter 
3 for details on space allocation in packed and unpacked records.) 

Dividing by zero in a compile-time constant expression. 

You, following the same mistaken path that Einstein once trod, have tried to 
divide by zero. 
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243 WARNING 



244 WARNING 



245 ERROR 



Size of a PROCEDURE or FUNCTION is undeterminable. 

You mistakenly specified the name of a routine as an argument to the sizeof 
function. See the sizeof listing in Chapter 4 for a list of its legal arguments. 

Variable name was not initialized before this use. 

The compiler is warning you of the possibility of a garbage result when using 
the value of variable name. To solve this problem, you must assign a value to 
name. If name was declared as an out parameter, then you should probably 
change it to an in out parameter. 

UNIV parameter name should not be passed as a value-parameter. 

You specified a univ parameter as a value parameter. You should explicitly 
declare univ parameters as in, out, in out, or var. (See the "Univ" section 
in Chapter 5 for details on univ.) At runtime, the called routine copies the 
value parameter. Since the site of the parameter and the argument might dif- 
fer, using a univ value parameter might cause runtime problems. 

Compiler Failure, Store Elimination Error 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 



246 WARNING 



Expression passed to UNIV formal name was converted to new type. 
See the "Univ" section in Chapter 5 for details on this warning message. 



247 ERROR 



Compiler failure, implementation restriction: Identifier-list contains too 
many names. 

This is an implementation restriction. You specified too many identifiers in 
an enumerated type. (See the "Enumerated Data" section in Chapter 3 for 
details on declaring enumerated types.) 



248 ERROR 



Compiler failure, limit exceeded; limitation jnessage . 
The limitationjnessage explains the problem. 



249 ERROR 



250 WARNING 



Too many nested pointer references for debug tables. 

This is an implementation restriction. The symbol table (used by the debug- 
ger) cannot process a record containing pointers to other records in a chain 
longer than 256 elements. 

Name_of_statement statement was constant-folded at compile time. 

Several conditions can cause the compiler to constant- fold a statement. One 
of the more common is because the DOMAIN Pascal compiler (SR9 or later) 
recognizes an attempt to compare a negative number to an unsigned subrange 
variable. When it recognizes such an attempt, it optimizes the code and is- 
sues a warning message. For example, consider the following fragment: 
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VAR 

X : 0. .65535; 

BEGIN 

IF X = -1 THEN RETURN; 

END; 

The compiler generates no code for the if/then statement because it knows 
that a negative value of x is not possible. 

When the compiler notes such a contradiction, it issues warning messages. 
These messages come from the following three groups: 

(IF I WHILE I CASE) statement was constant-folded at 
compile-time. 

Comparison is false 
Comparison is true 

<= becomes = 
> becomes <> 
>= becomes = 
< becomes <> 

For example, if you compile the following program: 

Program warning_test ; 
VAR 

X : 0. .100; 
BEGIN 

writeCEnter an integer — '); readln(x) ; 

if X <= then writeln('hi' ) ; 
END. 

The compiler issues the following two warning messages: 

<= becomes = 

and 
IF statement was constant-folded at compile-time. 

The first message tells you that the compiler is going to optimize the if/then 
statement. The second message tells you that the compiler is going to code 
the <= as an = because a < condition is not possible. 

If you write the if/then statement in the program as 

if X < then writeln('hi') ; 



the compiler prints a "Comparison is false" warning message because it is ap- 
parent to the compiler that there is no way that x < can ever be true. In 
such a case, the compiler generates no code for the then part of the state- 
ment. 

9-33 Errors 



251 ERROR 



Conflicting use of section name (name_of_section) . 

You specified name_of_section as both a code section name and a data sec- 
tion name. It cannot be both. See the "Section" section in Chapter 5 for de- 
tails. 



252 ERROR 



253 ERROR 



254 ERROR 



255 WARNING 



256 WARNING 



257 WARNING 



258 WARNING 



259 WARNING 



260 WARNING 



Compiler failure, invalid use of multiple sections and non-local goto to 
label name_of_label. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 

Compiler failure, bad address constant. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 

Compiler failure, invalid use of multiple sections and up-level referencing 
in routine ^1. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 

<= becomes =. 

See the description of WARNING message number 250. 

> becomes o. 

See the description of WARNING message number 250. 

Comparison is false. 

See the description of WARNING message number 250. 

Comparison is true. 

See the description of WARNING message number 250. 

>= becomes =. 

See the description of WARNING message number 250. 

< becomes o. 

See the description of WARNING message number 250. 



.-"^N 



Errors 



9-34 



262 



WARNING Value-parameter name was not specified in call to FUNCTION or 

PROCEDURE identifier declared OPTIONS (VARIABLE) . 

You forgot to specify a value for the argument corresponding to parameter 
name. You might get runtime access violations since the called procedure 
copies value parameters into temporary storage, and the procedure has a 
variable number of parameters. You can correct this problem in one of two 
ways. You can assign a value to the argument, or you can change the value 
parameter to a var, in, or in out parameter. 



263 



ERROR 



Only records may have variant tags. 

Variant tags give you the capability to create records with variable sizes, 
example, consider the following: 



For 



TYPE 










emp_stat 


(exempt, 


nonexempt) ; 






workerpointer = 


"worker ; 








worker = record 










first_name : 


array [1. 


10] of char; 






last_name : 


array [1. 


14] of char; 






next_einp : 


workerpointer; 






CASE emp_stat OF 








exempt 


: (salary : integerl6) ; 






nonexempt 


: (wages 


: single; 








plant 


: array [1. .20] 


of 


char) ; 



end; 



VAR 



current_worker : workerpointer; 



o 



264 ERROR 



The emp_stat field is a variant tag field because it uses different amounts of 
storage depending on its value. The function sizeof and the procedures new 
and dispose can use variant tags — for example, NEW(current_worker , 
exempt) — but only when such tags are part of a record variable. This er- 
ror occurs if you try to use a variant tag that is not part of a record. 

Too many variant tags specified for record. 

You used more variant tags in the routines new, dispose, and sizeof than are 
present in the record type variable. (See the "Variant Records" section of 
Chapter 3 for a description of variant tags.) 



265 



ERROR 



Type of tag name incompatible with variant. 

The value you supplied when specifying a variant tag field is not one of the 
choices listed in the field declaration of the record variable. (See the "Vari- 
ant Records" section of Chapter 3 for a description of variant tags.) 
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No variant with value of tag name exists. 

The value you supplied for a variant tag in the routines new, dispose, or 
sizeof is not one of the choices listed in the field declaration of the record 
variable. For example, you would get this error if you used the record decla- 
ration listed at ERROR message number 263, and then included this line in 
your program: 



V_ 



NEW(current worker, salaried) 



267 WARNING 



268 WARNING 



The error would occur because salaried is not one of the choices for the 
variant tag emp_stat. (See the "Variant Records" section of Chapter 3 for a 
description of variant tags.) 

TokenI should not be followed by token2\ the tokenl will be ignored. 

This usually appears when you have a misplaced semicolon. You might have 
put a semicolon {tokenl) before the reserved word else {token!). 

Missing operator or statement terminator; inserted token to continue pars- 
ing. 

The compiler generates this message when it is attempting to recover from er- 
rors and so continue parsing. It acts as if the missing token (usually a semico- 
lon) were present, generates this message, and then goes on. To eliminate 
this message, insert the necessary delimiter (s) in your program and recom- 
pile. 



269 ERROR 



Variables in libraries must be external. 



270 ERROR 



The variables declared in a precompiled library file must be accessible to a 
program that uses the file. However, if your precompiled library contains 
static and/or define variables, the calling program cannot access those vari- 
ables because they are not explicitly external. Such variables are not permit- 
ted. To eliminate this error, eliminate the static or define identifier from the 
library precompilations. 

Compiled library failure, illegal object type. 

The error is in the compiler, not in your code. Please contact your customer 
support representative or mail us a UCR. (You can use the Shell command 
crucr to create a UCR form.) 



271 ERROR 



File is not a library pathname. 

Pathname, which is supposed to specify a precompiled source library file, 
either is not a precompiled library at all, or is a precompiled library file whose 
data has been corrupted. Veniy pathname. If it is incorrect, make the ap- 
propriate fix to your code. If it is correct, precompile it again to try to get rid 
of the corrupted data. 
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Library is incompatible because it was generated by a more recent version 
of compiler. 

Library files are not guaranteed to be forward compatible. For example, if 
you use libraries that the newest compiler produced in a program you compile 
with an older compiler, the two may be incompatible. To correct this you can 
use the newer compiler to compile your source program, or use an older com- 
piler to produce the precompiled libraries. 



273 ERROR 



Bodies of PROCEDUREs/FUNCTIONs may not be declared in LIBRARY 
MODULES. 



The routines defined in a precompiled library file must be accessible to a pro- 
gram that uses the file. However, such routines are not accessible unless they 
are marked with the extern attribute (described in Chapter 7) . A routine in 
your precompiled library file was not marked extern. 



274 ERROR 



FORWARD PROCEDURE/FUNCTION declarations are not allowed in 
LIBRARY MODULES. 

Forward declarations of procedures or functions are not allowed in a 
precompiled library file because such routines are not accessible to a program 
that uses the file. Rewrite your code to eliminate the forward declaration 
and recompile. 



276 ERROR 



o 



":" not permitted after OTHERWISE. 

You put a colon (:) after the keyword otherwise in a DOMAIN Pascal case 
statement. Otherwise is a clause, not a label, so it does not take a colon. 



277 ERROR 



o 



Labels not permitted at MODULE level. 

Since a module (described in Chapter 7) consists of named routines only, a 
label can only be declared within the scope of one of those routines. That is, 
there is no "main program" in a module with which a label at module level 
can be associated. However, you declared a label at module level. To cor- 
rect this error, declare the label within the scope of the program block, or 
inside one of the routines in the module. 



278 WARNING 



Identifier has already been used in another context in current scope. 

Pascal forbids the redeclaration of a name that has already been used within 
a program block. For example, the following code fragment declares a con- 
stant ten at program level. Within procedure bo , ten is used to initialize 
variable hold. Ten then is illegally redeclared as a variable of type real. 



PROGRAM illegal; 
CONST ten := 10; 
PROCEDURE bo; 

VAR hold : integer := ten; 
ten : real ; 



{ This is illegal! } 
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279 WARNING Value assigned to identifier is never used; assignment is eliminated by op- 

timizer. 



280 



WARNING 



281 



FATAL 



If identifier's value has side effects, such as in a function call or in a refer- 
ence to variables with the device attribute, the value still is computed, and 
the optimizer only eliminates the assignment to identifier. However, if there 
are no side effects, the optimizer also eliminates the value's computation. 

In most cases, you can simply eliminate the value assignment to identifier to 
get rid of this warning. However, there are times when you need to call a 
function, but are not interested in the value it returns and so don't use that 
value. In that case, use the discard function to explicitly eliminate the value 
assignment. See Chapter 4 for a description of the discard function and 
Chapter 3 for information about the device attribute. 

Current semantics for subrange of CHAR is incompatible with SR9. 

Earlier versions of the compiler (SR9 and before) incorrectly use 16 bits to 
store a subrange of char, but SR9.5 only uses eight bits to store the subrange. 
The difference in the number of bits the compiler versions use can introduce 
incompatibilities among compilation units and data files. Therefore, this 
warning message has been added for the SR9.5 release only to indicate that a 
potential source of trouble exists. 

Too many compilation errors — compilation terminated. 

The errors in your program have caused an access violation in the compiler 
and so compilation cannot continue. Correct the problems already indicated 
and recompile. 



283 ERROR 



EXTERN PROCEDURES/FUNCTIONS may not be DEFINED in PRO- 
GRAM name. 



284 ERROR 



A main program (which contains the program heading) may reference exter- 
nally declared routines, but it may not define any global entry points. Your 
program tried to define one or more such points. 

FILE parameters may not be passed by value paramname. 

Pascal forbids passing a file variable as a value parameter. To eliminate this 
error, change paramname' s declaration to var. The "Parameter Types" sec- 
tion in Chapter 5 describes all the parameter types. 



285 ERROR 



GOTO transfers control to a structured statement outside of its scope to- 
ken. 



Your code includes an erroneous goto into a structured statement. Structured 
statements include case, while, repeat, for, and with. 



286 ERROR 



Maximum line length (argument 5 to OPEN) must be an INTEGER. 

You gave a value that is not an integer for the buffer_size argument to the 
open statement. The value must be an integer. See the listing for open in 
Chapter 4 for more details. 
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287 ERROR 



Maximum line length (argument 5 to OPEN) may only be specified for 
TEXT files. 



An open statement may only include the buffer_size argument if you are 
opening a text file. However, you included the argument for an open of some 
other file type. 



288 ERROR 



Base types of tokenl and token! are incompatible. 

This error occurs if you try to use the pack or unpack built-in procedures on 
two arrays that have different base data types. Those types must be the same. 
For example, if one is an array of integer32, the other must be an array of 
integer32. 



289 WARNING 



Must overflow bounds of array {tokenl) in order to match PACKED ar- 
ray. 

This error can occur if you are using the pack or unpack built-in procedures. 
For every element in the packed array there must be a corresponding ele- 
ment in the unpacked array. See the listings for pack and unpack in Chapter 
4 for more details. 



294 ERROR 



295 ERROR 



PROCEDURE may not be called in this context {token). 

It is illegal to use a procedure name {token) in the argument list of a call to 
another routine. This is because all of a routine's arguments must have or re- 
solve to values, and while a function returns a value, a procedure does not. 

Modulus must be >= zero {token) . 

This error can only occur if you compile with the -iso switch. The error oc- 
curs if the compiler can detect that the result of a mod function will be nega- 
tive. The modulus must be greater than or equal to zero. 



o 
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This appendix lists the reserved words and predeclared identifiers in DOMAIN Pascal. 

Reserved words, listed in Table A-1, are names of statements, data types, and operators. You can use re- 
served words only with their reserved meanings (and within strings and comments) . You cannot use a re- 
served word as an identifier. 



Table A-1. Reserved Words 



o 



and 


end 


not 


set 


array 


file 


of 


then 


begin 


for 


or 


to 


case 


function 


packed 


type 


const 


goto 


procedure 


until 


div 


if 


program 


var 


do 


in 


record 


while 


downto 


label 


repeat 


with 


else 


mod 
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Table A-2 lists the predeclared identifiers. These identifiers name types, functions, procedures, values, 
and files. You can redefine predeclared identifiers; however, doing so means that you can no longer use 
the identifier for its original meaning within the scope of the redefinition. 



Table A-2. Predeclared Identifiers 



V._ 



abs 


false 


next 


rshft 


addr 


find 


nil 


set_sr 


arctan 


firstof 


odd 


sin 


arshft 


forward 


open 


single 


boolean 


get 


ord 


sizeof 


char 


inrange 


otherwise 


sqr 


chr 


input 


out 


sqrt 


close 


integer 


output 


static 


cos 


integerl6 


page 


string 


define 


integer32 


pred 


succ 


disable 


internal 


put 


text 


discard 


lastof 


read 


true 


dispose 


In 


readln 


trunc 


double 


Ishft 


real 


univ 


enable 


max 


replace 


univ_ptr 


eof 


maxint 


reset 


val_param 


eoln 


min 


return 


write 


exit 


module 


rewrite 


writeln 


exp 


new 


round 


xor 


extern 
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DOMAIN Pascal uses the ASCII character set for representing character data, 
mal, octal, and hexadecimal values for all ASCII characters. 



Table B-1 shows the deci- 



O 



o 



o 
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4SCII Codes 








Oct 


dec 


hex 


character 


oct 


dec 


hex 


character 











NUL 


^@ 


40 


32 


20 


space 


1 


1 


1 


SOH 


'^A 


41 


33 


21 


! 


2 


2 


2 


STX 


^B 


42 


34 


22 


>> 


3 


3 


3 


ETX 


X 


43 


35 


23 


# 


4 


4 


4 


EOT 


^D 


44 


36 


24 


$ 


5 


5 


5 


ENQ 


T 


45 


37 


25 


% 


6 


6 


6 


ACK 


T 


46 


38 


26 


& 


7 


7 


7 


BEL 


^G 


47 


39 


27 


J 


10 


8 


8 


BS 


^H 


50 


40 


28 


( 


11 


9 


9 


TAB 


'^l 


51 


41 


29 


) 


12 


10 


A 


LF 


'^J 


52 


42 


2A 


* 


13 


11 


B 


VT 


K 


53 


43 


2B 


+ 


14 


12 


C 


FF 


T 


54 


44 


2C 


> 


15 


13 


D 


CR 


'^M 


55 


45 


2D 


— 


16 


14 


E 


SO 


^N 


56 


46 


2E 


, 


17 


15 


F 


SI 


^0 


57 


47 


2F 


/ 


20 


16 


10 


DLE 


T 


60 


48 


30 





21 


17 


11 


DC1 


^Q 


61 


49 


31 


1 


22 


18 


12 


DC2 


^R 


62 


50 


32 


2 


23 


19 


13 


DC3 


S 


63 


51 


33 


3 


24 


20 


14 


DC4 


T 


64 


52 


34 


4 


25 


21 


15 


NAK 


'^U 


65 


53 


35 


5 


26 


22 


16 


SYN 


-V 


66 


54 


36 


6 


27 


23 


17 


ETB 


'^W 


67 


55 


37 


7 


30 


24 


18 


CAN 


X 


70 


56 


38 


8 


31 


25 


19 


EM 


Y 


71 


57 


39 


9 


32 


26 


1A 


SUB 


Z 


72 


58 


3A 


■ 


33 


27 


IB 


ESC 


1 


73 


59 


3B 


> 


34 


28 


1C 


FS 


A 


74 


60 


3C 


< 


35 


29 


ID 


GS 


1 


75 


61 


3D 


= 


36 


30 


IE 


RS 


A A 


76 


62 


3E 


> 


37 


31 


IF 


US 


A 


77 


63 


3F 


9 

■ 



^ 
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Table B-1. ASCII Codes (continued) 






Oct 


dec 


hex 


character 


oct dec 


hex 


char 


100 


64 


40 


@ 


140 96 


60 


> 


101 


65 


41 


A 


141 97 


61 


a 


102 


66 


42 


B 


142 98 


62 


b 


103 


67 


43 


C 


143 99 


63 


c 


104 


68 


44 


D 


144 100 


64 


d 


105 


69 


45 


E 


145 101 


65 


e 


106 


70 


46 


F 


146 102 


66 


f 


107 


71 


47 


G 


147 103 


67 


g 


110 


72 


48 


H 


150 104 


68 


h 


111 


73 


49 


1 


151 105 


69 


i 


112 


74 


4A 


J 


152 106 


6A 


J 


113 


75 


4B 


K 


153 107 


6B 


k 


114 


76 


4C 


L 


154 108 


6C 


1 


115 


77 


4D 


M 


155 109 


6D 


m 


116 


78 


4E 


N 


156 110 


6E 


n 


117 


79 


4F 





157 111 


6F 


o 


120 


80 


50 


P 


160 112 


70 


P 


121 


81 


51 


Q 


161 113 


71 


q 


122 


82 


52 


R 


162 114 


72 


r 


123 


83 


53 


S 


163 115 


73 


s 


124 


84 


54 


T 


164 116 


74 


t 


125 


85 


55 


U 


165 117 


75 


u 


126 


86 


56 


V 


166 118 


76 


V 


127 


87 


57 


w 


167 119 


77 


w 


130 


88 


58 


X 


170 120 


78 


X 


131 


89 


59 


Y 


171 121 


79 


y 


132 


90 


5A 


z 


172 122 


7A 


z 


133 


91 


5B 


[ 


173 123 


7B 


{ 


134 


92 


5C 


\ 


174 124 


7C 




135 


93 


5D 


] 


175 125 


7D 


} 


136 


94 


5E 


A 


176 126 


7E 


- 


137 


95 


5F 


__ 


177 127 


7F 


del 
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^osiioins to Sti 
Pascal 



This appendix describes DOMAIN Pascal's extensions to ISO standard Pascal. 

C.I Extensions to Program Organization 

Chapter 2 describes the elements that make up a Pascal program. This section describes the extensions to 
standard Pascal. 

C.1.1 Identifiers 

Although an identifier must begin with a letter, you can include underscores (_) or dollar signs ($) in the 
name. For example, mailing_$lists is a legal identifier. 

C.1.2 Integers 

You can specify integers in any base from 2 to 16. To do so, use the following syntax: 

base#value 

For base, enter an integer from 2 to 16. For value enter any integer within that base. If the base is 
greater than 10, use the letters A through F (or a through f) to represent digits with the values 10 through 
15. 

For example, consider the following integer constant declarations: 

/* default (base 10) */ 

/* hexadecimal (base 16) */ 

/* binary (base 2) */ 

/* octal (base 8) */ 

C-1 Extensions to Standard Pascal 



half life 


= 5260; 


hexograms 


= 16#lc6; 


luck 


= 2#10010; 


wheat 


= 8#723; 



C.1.3 Comments 

You can specify comments in any of the following three ways: 

{ comment } 
(* comment *) 
"comment" 

(The spaces before and after the comment delimiters are for clarity only; you don't have to include these 
spaces.) For example, here are three comments: 

{ This is a comment. } 
(* This is a comment. *) 
"This is a comment." 

Unlike standard Pascal, the comment delimiters of DOMAIN Pascal must match. For example, a com- 
ment that starts with a left brace doesn't end until the compiler encounters a right brace. Therefore, you 
can nest comments, for example: 

{ You can (*nest*) comments inside other comments. } 

The DOMAIN Pascal compiler ignores the text of the comment, and interprets the first matching delimit- 
er as the end of the comment. 

Standard Pascal does not permit nested comments. If you want to use unmatched comment delimiters, as 
standard Pascal allows, you must compile with the -iso switch. Chapter 6 describes that switch. 

Finally, DOMAIN Pascal permits you to put compiler directives inside comment delimiters. However, if 
you do so, you cannot use spaces; see the listing for "Compiler Directives" in Chapter 4 for details. 

C.1. 4 Sections 

DOMAIN Pascal allows you to assign code and data in your program to a nondefault section. A section is 
a named contiguous area of main memory. 

C.1.5 Declarations 

You can declare the label, const, type, and var declaration parts in any order. You can specify the decla- 
ration parts an unlimited number of times. 

In addition to label, const, type, and var declaration parts, you can also declare a define part (which is 
detailed in Chapter 7). 

C.I. 6 Constants 

You can set a constant equal to a real, integer, string, char, or set expression. The constant can also be 
the pointer expression nil. The expression can contain the following types of terms: 

• A real number, an integer, a character, a string, a set, a Boolean, or nil 

• A constant that has already been defined in the const declaration part (note that you cannot use a 
variable here) 

• Any predefined DOMAIN Pascal function (e.g., chr, sqr, Ishft, sizeof), but only if the argument 
to the function is a constant 

• A type transfer function 
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You can optionally separate these terms with any of the following operators: 

Operator Data Type of Operand 

+, -, * Integer, real, or set 

/ Real 

mod, div, !, &, - Integer 

For example, the following const declaration part defines eight constants: 

CONST 

X = 10; 

y = 100; 

z = X + y; 

current_year = 1994 ; 

leap_offset = (current_year mod 4) ; 

bell = chr(7) ; 

pathname = '//et/go_home' ; 

pathname len = sizeof (pathname) ; 



C.I. 7 Labels 

In standard Pascal, only integers can be used as labels. In DOMAIN Pascal, you can use both identifiers 
and integers as labels. 



C.2 Extensions to Data Types 



Chapter 3 describes the data types supported by DOMAIN Pascal. This section describes the extensions 
that DOMAIN Pascal supports. 

C.2.1 Initializing Variables in the Var Declaration Part 

DOMAIN Pascal lets you initialize variables in the var declaration part. You can initialize integer, real, 
Boolean, char, subrange, set, enumerated, array, record, and pointer variables with an assignment state- 
ment following the data type; for example: 



VAR 



integer := 17; 

real := 5.3E-14; 

array [1.. 7] of char := 'Wyoming' 



For arrays in particular, DOMAIN Pascal supports many extensions for simplifying initialization. See 
Chapter 3 for details. 

C.2.2 Integers 

DOMAIN Pascal supports the following two nonstandard predeclared integer data types: 

• Integerl6 — Use it to declare a signed 16-bit integer. (Integer and integerl6 have identical 
meanings.) 

• Integer32 — Use it to declare a signed 32-bit integer. A signed 32-bit integer variable can be any 
value from -2147483648 to +2147483647. 
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C.2.3 Reals 

DOMAIN Pascal supports the following two nonstandard predeclared real data types: 

• Single — Same as real. 

• Double ~ Use it to declare a signed double-precision real variable. DOMAIN Pascal represents 
a double-precision real number in 64-bits. A double-precision real variable has approximately 16 
significant digits. 



C.2.4 Pointer Types 

In addition to the standard pointer type, DOMAIN Pascal supports a univ_ptr type and a special pointer 
type that points to procedures and functions. 

The predeclared data type univ_ptr is a universal pointer type. A variable of type univ_ptr can point to a 
variable of any type. You can use a univ_ptr variable in the following contexts only: 

• Comparison with a pointer of any type 

o Assignment to or from a pointer of any type 

• Formal or actual parameter for any pointer type 

• Assignment to the result of a function 

DOMAIN Pascal supports a special pointer data type that points to a procedure or a function. By using 
procedure and function data types, you can pass the addresses of routines obtained with the addr 
predeclared function. (See the addr listing of Chapter 4 for a description of this function.) You may only 
obtain the addresses of top-level procedures and functions; you cannot obtain the addresses of nested or 
explicitly declared internal procedures and functions. (See Chapter 5 for details about internal proce- 
dures.) 

C.2.5 Named Sections 

By default, DOMAIN Pascal stores all variables declared in the var declaration part at the program or 
module level to the DATA$ section. However, DOMAIN Pascal enables you to assign variables to sections 
other than DATA$. Named variable sections are synonymous with named common blocks in FORTRAN. 

C.2.6 Variabie and Type Attributes 

DOMAIN Pascal supports attributes for variables and types. These attributes supply additional information 
to the compiler when you declare a variable or a type. 

DOMAIN Pascal currently supports three of these attributes: volatile, device, and address. The volatile 
and device attributes enable you to turn off certain optimizations that would otherwise ruin programs that 
access device registers or shared memory locations. The address attribute associates a variable with a spe- 
cific virtual address. 



C.3 Extensions to Code 



Chapter 4 describes the action part (the executable block) of a Pascal program. This section describes the 
extensions. 

Extensions to Standard Pascal C-4 



o 



o 



o 



C.3.1 Bit Operators 

DOMAIN Pascal supports three bit operators for bitwise and, not, and or operations. These operators per- 
form Boolean operations by comparing the bits in each bit position of two integer arguments. For details 
on these three operators see the "Bit Operators" listing in Chapter 4. In addition to these three bit opera- 
tors, DOMAIN Pascal supports an xor function which performs a bitwise exclusive or operation on two in- 
tegers. 

C.3.2 Bit-Shift Functions 

DOMAIN Pascal supports the following three bit-shift functions: 

o Rshft, which shifts the bits in an integer a specified number of spaces to the right. 

o Arshft, which shifts the bits in an integer a specified number of spaces to the right and preserves 
the sign of the integer. 

o Lshft, which shifts the bits in an integer a specified number of spaces to the left. 

For syntax details, see the rshft, arshft, and lshft listings in Chapter 4. 

C.3.3 Compiler Directives 

DOMAIN Pascal supports the compiler directives shown in Table 4-9 in Chapter 4. 

You can place a directive anywhere in your program. To use a directive, specify its name in a comment or 
as a statement. For example, all of the following formats are valid: 

{%directive} 

(*%directive*) 

%directive 

If you specify a directive within a comment, the percent sign must be the first character after the delimiter. 
(Spaces count as characters.) 

C.3.4 Addr Function 

DOMAIN Pascal supports an addr function that returns the virtual address of the specified variable or 
routine. For syntax details, see the addr listing of Chapter 4. 

C.3.5 iVIax and IVIin Functions 

DOMAIN Pascal supports a max and a min function for finding the larger and smaller of two operands, 
respectively. 

C.3.6 Discard Procedure 

DOMAIN Pascal supports a discard procedure for explicitly discarding the computed value of an expres- 
sion. It usually is used with a function (which in standard Pascal must return a value) for which the value 
is not needed. The optimizer may eliminate the computation and issue a warning message if the return 
value isn't used, but discard explicitly throws away the computed value and so eliminates the warning 
message. 
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C.3.7 I/O Procedures 

DOMAIN Pascal supports the I/O procedures of standard Pascal, plus the following four procedures: 

• Open, which opens permanent files for I/O access. 

• Close, which explicitly closes an open file. 

• Find, which locates a specific element in a record-structured file. 

• Replace, which modifies an existing element in a record-structured file. 

As in standard Pascal, you can create a temporary file with the rewrite procedure; however, by using the 
open procedure, you can create a permanent file. (Here, "permanent" means a file that exists even after 
the program terminates.) 

When a program terminates, the operating system automatically closes any open files. However, because 
an open file can clog system resources, DOMAIN Pascal provides a close procedure that allows you to 
close a file from within your program. 

The find procedure locates records from a record-structured file. Records here refer to the elements in a 
file whose file variable was declared as a file of data type. By using replace in combination with find, you 
can replace an existing record. 

From a DOMAIN Pascal program, you can easily access Input Output Stream calls (known as lOS calls) 
and formatting calls (known as VFMT calls). 

For syntax details, see the open, close, find, and replace listings in Chapter 4. For an overview of I/O 
(including lOS calls and VFMT calls), see Chapter 8. 

C.3.8 If Statement 

DOMAIN Pascal supports an and then and or else extension to the if statement. You can use and then 
and or else to guarantee that DOMAIN Pascal will evaluate the Boolean expressions of a condition in the 
order that you write them. They also guarantee "short-circuit" evaluation; that is, at runtime, the system 
will only evaluate as many expressions as is necessary. For details, see the if listing in Chapter 4. 

C.3.9 Loops 

DOMAIN Pascal supports for, while, and repeat, which are the three looping statements of standard Pas- 
cal. DOMAIN Pascal also supplies the following two additional statements for further control within a 
loop: 

o A next statement for skipping over the current iteration of a loop 

• An exit statement for unconditionally jumping out of the current loop 
For syntax details, see the next and exit listings of Chapter 4. 

C.3.10 Range of a Specified Data Type 

DOMAIN Pascal supports 

• A firstof function for returning the first possible value of a specified data type 

• A lastof function for returning the last possible value of a specified data type ( 
For syntax details, see the firstof and lastof listings in Chapter 4. 
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C.3.11 Integer Subrange Testing 

By default, DOMAIN Pascal does not check the value of input data to see that it falls within the defined 
range of a variable declared as a subrange of integers. To ensure subrange checking, call the in_range 
function. For syntax details, see the in_range listing in Chapter 4. 

C.3.12 Extensions to Read and Readin 

In addition to allowing input into any real, integer, char, or subrange variable, as standard Pascal allows, 
DOMAIN Pascal's read and readin also allow input to a Boolean or enumerated variable. 

C.3.13 Premature Return From Routines 

As in standard Pascal, DOMAIN Pascal returns control to the calling routine after executing the last line 
in the called routine. If you want to return to the calling routine before reaching the last line, you can is- 
sue a return statement. For syntax details, see the return listing in Chapter 4. 

C.3.14 IVIemory Allocation of a Variable 

DOMAIN Pascal supports a sizeof function. This function returns the size (in bytes) that a data type 
(predeclared or user-defined), variable, constant, or string inhabits in main memory, 

C.3.15 Extensions to With 

DOMAIN Pascal supports the standard format of with and also supports the following alternative format: 

with v1 -.identifierl , v2:iclentifier2, ... vN:identifierN do 
stmnt; 

An identifier is a pseudonym for the record variable v. To specify a record, use the identifier instead of 
the record variable v. Furthermore, to specify a field in a record, use identifier. fieid_name rather than 
v.field_name. 

For example, given the following record declaration 

basketball_team = record 

mascot : array[1..15] of char; 

height : single; 
end; 

consider the following three methods of assigning values: 

readin (basketball_team. mascot) ; {Not using WITH.} 
readln(basketball_team. height) ; {Not using WITH.} 

WITH basketball_team DO {Using standard WITH.} 
begin 

readin (mascot) ; 

readin (height) ; 
end; 



WITH basketball_team : B DO {Using extension to WITH.} 
begin 

readin (B. mascot) ; 

readin (B. height) ; 
end ; 

C-7 Extensions to Standard Pascal 



The extension is useful for working with long record names when two records contain fields that have the 
same names. 

C.3.16 Type Transfer Functions 

DOMAIN Pascal supports type transfer functions which enable you to change the type of a variable or ex- 
pression within a statement. To perform a type transfer function, use any user-created or standard type 
name as if it were a function name in order to "map" the value of its argument into that type. 

With one exception, the size of the argument must be the same as the size. of the destination type. (Chap- 
ter 3 describes the size of each data type) . This size equality is required because the type transfer function 
does not change any bits in the argument. DOMAIN Pascal just "sees" the argument as a value of the new 
type. The one exception is that integer subranges are compatible. 

C.3.17 Extensions to Write and Writein 

DOMAIN Pascal allows you to specify a negative field width for chars, strings, and arrays of chars. Also, 
if you specify a one-part field width for a real number, DOMAIN Pascal adds or removes leading blanks. 
See the listing for write and writein in Chapter 4 for details. 

C.4 Extensions to Routines 

Chapter 5 describes procedures and functions. The term "routine" means either procedure or function. 
Also, the term "argument" refers to the data passed to a routine while "parameter" means the templates 
for the data to be received. 

The following subsections describe DOMAIN Pascal's extensions to routine calling. 

C.4.1 Direction of Data Transfer 

In standard Pascal, you cannot specify the direction of parameter passing. However, DOMAIN Pascal 
supports extensions to overcome this problem. You can use the following keywords in your routine decla- 
ration: 

• In — This keyword tells the compiler that you are going to pass a value to this parameter, and 
that the routine is not allowed to alter its value. If the called routine does attempt to change its 
value (i.e., use it on the left side of an assignment statement), the compiler issues an "Assignment 
to IN argument" error. 

• Out — This keyword tells the compiler that you are not going to pass a value to the parameter, 
but that you expect the routine to assign a value to the parameter. It is incorrect to try to use the 
parameter before the routine has assigned a value to it, although the compiler does not issue a 
warning or error in this case. 

If the called routine does not attempt to assign a value to the parameter, the compiler may issue a 
"Variable was not initialized before this use" warning. This could occur if your routine only as- 
signs a value to the parameter under certain conditions. If that is the case, you should designate 
the parameter as var instead of out. 

In some cases, the compiler cannot determine whether all paths leading to an out parameter as- 
sign a value to it. If that happens, the compiler does not issue a warning message. 

• In out — This keyword tells the compiler that you are going to pass a value to the parameter, and 
that the called routine is permitted to modify this value. It is incorrect to call the routine before 
assigning a value to the parameter, although the compiler does not issue a warning or error in this 
case. The compiler also doesn't complain if the called routine does not attempt to modify this 
value. 

Extensions to Standard Pascal C-8 



o 



o 



C.5 Universal Parameter Specification 

By default, DOMAIN Pascal and standard Pascal check to ensure that the argument you pass to a routine 
has the same data type as the parameter you defined for the routine. As an extension, you can tell 
DOMAIN Pascal to suppress this type checking. You do this by using the keyword univ prior to a type 
name in a parameter list. By using univ, you can pass an argument that has a different data type than its 
corresponding parameter. 

Univ is especially useful for passing arrays. 

C.5.1 Routine Options 

Standard Pascal supports a forward option. DOMAIN Pascal supports the forward option, and also sup- 
ports the following routine options: 

o Extern — By default, Pascal expects a called routine to be defined within the source code file 
where it is called. The extern option tells the compiler that the routine is possibly defined outside 
of this source code file. 

• Internal — By default, all routines defined in modules become global symbols. But, if you de- 
clare the routine with the internal option, the compiler makes the routine a local symbol. 

• Variable — By default, you must pass the same number of arguments to a routine each time you 
call the routine. However, by using the variable option in a routine declaration, you can pass a 
variable number of arguments to the routine. 

• Abnormal — This option warns the compiler that a routine can cause an abnormal transfer of 
control. 

• Val_param — By default, DOMAIN Pascal passes arguments by reference. However, by using 
the val_param option, you tell DOMAIN Pascal to pass arguments by value. 

• Nosave — This option indicates that the contents of data registers D2 through D7, address regis- 
ters A2 through A4, and floating-point registers FP2 through FP7 will not be saved when a called 
assembly language routine finishes and returns to the DOMAIN Pascal program. However, two 
registers are preserved: A5, which holds the pointer to the current stack area, and A6, which 
holds the address of the current stack frame. 

• Noreturn — This option specifies an unconditional transfer of control; once a routine marked 
noreturn is called, control can never return to the caller. 

• DO_return — By default, a Pascal function returning the value of a pointer type variable puts that 
value in address register AO. DO_return tells the compiler to put the value in AO and data register 
DO. 

0.5.2 Routine Attribute List 

You can specify a routine attribute list when you declare a routine. Within the routine attribute list, you 
can specify a nondefault section name. 

A "section" is a named contiguous area of an executing object. (Refer to the DOMAIN Binder and Li- 
brarian Reference for full details on sections.) By default, the compiler assigns code to the PROCEDURES 
section and data to the DATA$ section. Thus, by default, all code from every routine in the program is 
assigned to PROCEDURES, and all data from every routine in the program is assigned to DATAS. How- 
ever, DOMAIN Pascal permits you to override the default of PROCEDURES and DATAS on a routine- 
by-routine basis. (You can also override the defaults on a variable-by-variable or module-by-module ba- 
sis.) This makes it possible to organize the runtime placement of routines so that logically related routines 
can share the same page of main memory and thus reduce page faults. Conversely, you can declare a 
rarely called routine as being in a separate section from the frequently called routines. 
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C.6 Modularity 



DOMAIN Pascal allows you to break your program into separately compiled source files. After compiling 
all the source files, you can bind the resulting objects into one executable object file. Chapters 6 and 7 
document the details. 

C.7 Other Features of DOMAIN Pascal 

DOMAIN Pascal supports many other features, such as the ability to call routines written in other 
DOMAIN languages. However, the remaining features are all implementation-dependent features, and 
not actual extensions. 



V 
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te¥iatioins From 
standlardl Pascal 



This appendix describes DOMAIN Pascal's deviations from ISO standard Pascal, and documents the sec- 
tions in the ISO standard document to which DOMAIN Pascal does not completely adhere. 

D.I Deviations From tlie Standard 

DOMAIN Pascal does not include certain features of standard Pascal, and this list documents the devia- 
tions: 

o Identifiers in standard Pascal may be longer than 32 characters and still be considered unique. 

o DOMAIN Pascal ignores the file list in the program heading. 

o DOMAIN Pascal allows arrays of up to seven dimensions only. 

o Although DOMAIN Pascal recognizes the packed syntax, it does not support packed arrays or 
packed sets. 

D.2 Deviations From Specific Sections of ihe Standard 

The following lists the sections in the ISO standard document to which DOMAIN Pascal does not com- 
pletely adhere, and the reason it does not adhere to that section. 

6.1.2 You may redeclare NIL. 

6.1.5 You are not required to include a sequence of digits after a period in a float- 

ing-point number. 
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6.1.8 You are not required to leave a blank between a number and a word-type 

operator. For example, DOMAIN Pascal accepts the following: 

result := lOraod 1; 

6.2.2 The following type of declaration works under DOMAIN Pascal: 

TYPE 

rec = record 

ptr : "iny_var; 

my_var : integer 
end; 
my_var = rec; 

6.4.3.3 There is no requirement that all values of a tag-type in a record appear as 

case constants. 

DOMAIN Pascal does not detect a reference to an inactive variant field. 
Also, it does not mark variant fields as inactive when a new variant tag be- 
comes active. 

6.4.5 Subranges of the same type that are defined with different ranges are consid- 
ered identical. 

DOMAIN Pascal considers structurally identical types to be identical. For ex- 
ample, the following are identical under DOMAIN Pascal: 

TYPE 

first = array [1.. 20] of integer32; 
second = array [1.. 20] of integer32; 

Also, DOMAIN Pascal ignores the keyword packed, so structurally identical 
sets are considered identical. 

6.4.6 You may assign structured types containing a file component to each other. 

You may make an assignment from an integer expression that includes a 
value outside one of the variables' declared subranges. Also, you may pass an 
integer argument that is outside the corresponding parameter's declared sub- 
range. In addition, DOMAIN Pascal considers sets of different subranges 
from the same enumerated type to be compatible for assignment and as pa- 
rameters. 

6.5.5 DOMAIN Pascal does not detect when a field variable passed as a var pa- 

rameter is modified. It also does not detect a modification to a file variable 
when a reference to the buffer exists. 

6.6.3.3 You may pass the selector of a variant or a component of a packed variable 

as a var parameter. Also, DOMAIN Pascal accepts a procedure call like the 
following where x is declared in the procedure heading as being a var pa- 
rameter: 

proc_name( (x) ) ; 

6.6.3.5, 6.6.3.6 DOMAIN Pascal treats integer and subrange of integer as identical. 

6.6.3.6 DOMAIN Pascal considers the following to be identical: 

VAR VAR 

a : integer; a,b : integer; 

b : integer; 
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6.6.5.2 DOMAIN Pascal does not detect a put of an undefined buffer variable at 

compiletime. It does not consider a read of an enumerated type to be an er- 
ror, or an assignment from a file variable of an enumerated type followed by 
a get to be an error. You may write an integer expression that includes a 
value outside one of the variables' declared subranges. Also, you may make 
an assignment from an integer expression that includes a value outside one of 
the file variables' declared subranges. 

6.6.5.3 You may dispose a pointer that is active because it has been de-referenced 

as a parameter or in a with block. In addition, DOMAIN Pascal does not re- 
port an error if you use a pointer variable after you have disposed of it or if 
you dispose of a dangling pointer (that is, a pointer with an address assigned 
to another pointer) . 

You also may use a record allocated with a long form of new as an operand in 
an expression or as a variable in an assignment statement. You may pass as 
an argument a variable that was allocated with new and that uses variant tags. 

DOMAIN Pascal does not report an error if you use different tags for a vari- 
able in new and dispose. It also does not detect the activation of a variant on 
a variable that new allocated with a different tag, or if your program includes 
illegal variant tags in a dispose. 

6.6.5.4 The pack procedure accepts a normal array where packed is expected, and a 

packed array where a normal array is expected. 

In pack, DOMAIN Pascal does not detect an uninitialized component in the 
unpacked array. Similarly, in unpack, DOMAIN Pascal does not detect an 
uninitialized component in the packed array. 

6.6.6.2 On some nodes, the sqr function does not detect overflow. 

6.6.6.3 On some nodes, trunc and round do not detect overflow. 

6.6.6.4 Succ, pred, and chr do not detect overflow. 

6.7.2.2 DOMAIN Pascal does not detect an overflow or underflow on integer arith- 

metic. Also, it allows you to supply a negative value for j in an expression 
like the following: 

i mod j 

6.7.2.4 DOMAIN Pascal does not detect operations on overlapping sets with incom- 
patible elements. 

6.8.1 DOMAIN Pascal permits jumps between branches of a case statement and 

from one structured statement into the middle of another. 

6.8.3.5 DOMAIN Pascal does not detect the lack of a case statement constant corre- 
sponding to a runtime case value. 

6.8.3.9 DOMAIN Pascal does not detect an underflow of an assignment from pred to 

a for statement index variable. Also, it does not issue an error if there is an 
overflow in the final value of a for statement index variable. 

DOMAIN Pascal does not detect the possibility that an inner block will 
change the value of a for statement's index variable. Also, DOMAIN Pascal 
allows a non-local variable, a formal parameter, or a value parameter to be 
used as a for statement's index variable. You also can use a program level 
global variable as the index variable for a for statement that resides in an in- 
ner block. 
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6.9.1 DOMAIN Pascal does not detect an overflow of a subrange boundary for a 

read statement. 

6.9.3.1 You may supply a nonpositive field width or a nonpositive fractional-digits 

field width to a write or writeln. 

6.10 You don't have to declare input and output in a program heading to use 

them in the program. You can, however, repeat parameters in a program 
heading (e.g., program testing (output, output);) or redeclare pro- 
gram parameters as some type other than a file. Also, you don't have to de- 
clare program parameters in the var declaration part of your program. 
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DOMAIN Pascal includes several routines designed specifically for systems programmers' use. Systems 
programmers are those who need to do very low-level work in their programs and who need direct access 
to specific registers and bits within those registers. They frequently write some programs in Pascal and 
some in assembly language. 

If you are a systems programmer, you might use these routines when writing device drivers, or when doing 
other low-level manipulations of the hardware status register.' 
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E.I Overview 

Table E-1 briefly describes the available systems programming routines, all of which are extensions to 
standard Pascal. A more complete explanation follows. 



Table E-1. Systems Programming Routines 



Routine 


Action 


disable 
enable 
set_sr 


Turns off the interrupt enable in the hardware status register. 

Turns on the interrupt enable in the hardware status register. 

Saves the current value of the hardware status register and then 
inserts a new value. 
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E,2 Restrictions for Use 



All the routines described in this appendix generate privileged instructions and may only be executed from 
supervisor mode. If you try to run a program using one of these routines while in user mode, you get a 
privilege-violation error. 
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Disable — Turns off the interrupt enable in tine hardware status register. (Exten- 
sion) 



FORMAT 

disable {disable is a procedure.} 

Argument 

Disable takes no arguments. 

DESCRIPTION 

Disable is a built-in procedure for systems programmers' use. It turns off the interrupt enable in the 
hardware status register and should be used with its complementary procedure enable. 

By turning off the interrupt enable, disable allows you to prevent an interrupt from coming in while the 
program is in a critical section. After the critical section finishes, you should use enable to turn the in- 
terrupt enable back on. 

The disable-enable pair look like this in code: 

disable; 

{ Critical section. } 

{ No interrupts allowed while this section is executing. } 

enable; 

If you mistakenly use only disable, your program will essentially grind to a halt since no interrupt sig- 
nals will be able to get to it. You should only use the disable-enable pair around very small sections of 
code. 
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Enable — Turns on the interrupt enable in the hardware status register. (Exten- 
sion) 



FORIVIAT 

enable {enable is a procedure.} 

Argument 

Enable takes no arguments. 

DESCRIPTION 

Enable is a built-in procedure for systems programmers' use. It turns on the interrupt enable in the 
hardware status register and usually is used with its complementary procedure disable. 

By turning on the interrupt enable, enable allows your program to receive interrupts. Usually, disable 
will have been used to prevent the reception of interrupts during a critical section of code. After the 
critical section finishes, enable lets the interrupts flow. 

The disable-enable pair look like this in code: 

disable; 

{ Critical section. } 

{ No interrupts allowed while this section is executing. } 

enable; 

Because the interrupt enable is turned on by default, there is no effect if you mistakenly use only en- 
able in your program. 
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Set_sr — Saves the current value of the hardware status register and then in- 
serts a new one. (Extension) 



FORMAT 

oldsr := set_sr(newsr); 



{set_sr is a function.} 



Argument 

oldsr 
newsr 



The old value of the hardware status register. 
The new value of the hardware status register. 
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DESCRIPTION 

Set_sr is a built-in function for systems programmers' use. It reads the hardware status register (SR) 
and replaces its current value with newsr. The original value then is assigned to oldsr. This translates to 
assembly language code something like this: 



move 


w 


SR.dO 


move 


w 


newsr , SR 


move 


w 


do, oldsr 



The function eliminates six instructions in what often was a time-critical path. 
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The letter / means "and the following page"; the letters ^ mean "and the following pages". Symbols are 
listed at the beginning of the index. 
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Symbols 

(* *) (parentheses/asterisks) 

as comment delimiters 2-3, 6-6 
& (ampersand) 

as bit operator 4-23 

differences from and 4-12 
' (apostrophe) 

including in string 2-4 
* (asterisk) 

as default array size indicator 
3-21 

as indefinite repeat count 
indicator 3-22 

@ (at sign) 

as continuation character 1-2 

\ (backslash) 

as continuation character 1-2 

{} (braces) 

as comment delimiters 2-3, 6-6 

" (caret) (See Up-arrow) 

: (colon) 

and designating field widths 

4-168ff 
and otherwise clause of case 

4-26 
in case statement 4-25 
in record declarations 3-14 
in routine headings 5- If 
in variable declarations 2-10 

$ (dollar sign) 

as AEGIS shell prompt 1-2 
in identifier names 1-4, 2-1 

" (double quotes) 

as comment delimiters 2-3, 6-6 

= (equal sign) 

in record declarations 3-14 
in type declarations 2-9 

! (exclamation point) 



as bit operator 4-23 

differences with or 4-108 
> (greater than) 

as standard output redirection 
character 6-16 
< (less than) 

as standard input redirection 
character 6-16 
(parentheses) 

and extensions to if 4-76f 

as section name delimiters 3-26 

in enumerated declarations 3-9 

using to organize complex 
expressions 4-62 
% (percent sign) 

as compiler directive indicator 
4-32 
. (period) 

and record field names 4-125 
; (semicolon) 

and compiler directives 4-32 

and else part of an if 4-76 

and use with end 4-52 
[] (square brackets) 

and nondefault section names 
5-12 

and set assignment 4-139 

in array declarations 3-20 

in array initialization 3-20f 

in record initialization 3-16 
- (tilde) 

as bit operator 4-23 
_ (underscore) 

in identifier names 1-4, 2-1 
" (up-arrow) 

and de-referencing a procedure 
or function pointer 4-117 

in pointer declarations 3-24 
\0 (DOMAIN C null character) 

and passing strings 7-22f 
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Abbreviating record names 4-165ff 
Abnormal routine option 5-11 
Abs function 4-9 
Absolute pathnames 6-10 
Absolute value function 4-9 
Access 

of variables 2-12 

of variables in nested routines 
2-13f 
Accessing routines 

in separate modules 7-7ff 
Accessing variables 7-3ff 
Accuracy 

and expansion of operands 4-3 
Action part 

of a program 2-12, 4- Iff 

of a routine 2-12 
Addr function 4-10 

as extension C-5 
Address attribute 3-30 
Address registers 

and dO_return 5-11 

and nosave 5-11 
Addresses 

and procedure or function 
pointers 4-117 

manipulating with pointers 4-116 

passing using pointers 3-25 

returning with addr 4-10 
AEGIS shell 

and compiling 6-3 

continuation character 1-2 
-align compiler option 6-5 
Allocating space 

for machines with more address 
space 4-95 

with new 4-9 4f 
Ampersand (&) 

as bit operator 4-23 

differences from and 4-12 
And operator 4-12f 

with not 4-102 
And then 

extension to if 4-7 6f 
example 4-77f 
Anonymous data types 2-10 

and parameters 5-2 

restrictions in routine headings 
5-2 
Apostrophe (') 



including in string 2-4 
Arctan function 4-14 
Arctangent 

function 4-14 

relationship with tangent 4-14 
Arguments 

and calling a routine 5-2 
and cross-language 

communication 7-14 
and passing arrays 7-14, 7-24f 
definition 5-1 

differences in C and Pascal 7-20 
passing a variable number 5-10 
passing by reference 5-11 

and arrays 7-24 

and C 7-20 

and FORTRAN 7-15 
passing by value 5-11 

and C 7-20 
passing characters to C 7-22f 
passing characters to FORTRAN 
7-17 

example 7-18f 
restrictions when passing 5-3 
Arithmetic operators 

list 4-2 
Arithmetic right shift 4-19f 
Arrays 3-19ff 

and C and Pascal 7-24ff 

and FORTRAN and Pascal 7-13f 

as parameters 

and univ 5-6 
assigning values to 4-16f 

strings 4-17 
data types supported 3-1 
defaulting the size of 3-21 
example of assignments 4-16f 
first value 4-66 
how to use 4-16ff 
indexes 4-16f 

and pack procedure 4-112 

and unpack procedure 4-160 
initializing 3-20f 

example 4-80 , 4-86 
initializing externally stored 7-4f 
internal representation 3-22f 
last value 4-83 
of records 

assigning values to 4-127 
packed 

and pack procedure 4-112 

and unpack procedure 4-160 
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example 4-113 , 4-161 
passing to C 7-24ff 
size of one element 3-23 
storage 3-2 2 f 
in C 7-25 
in FORTRAN 7-14 
string 3-20 

subscript checking 6-14f 
subscripts 

default starting point in C 7-24 
unpacked 

and pack procedure 4-112 
and unpack procedure 4-160 
using repeat counts to initialize 
3-21f 
Arshft function 4-19f 
ASCII character set 
and chr 4-28 
and ord 4-110 
for character variables 3-9 
ASCII table B-lff 
Assembly language 

and nosave routine option 5-11 
with -exp 6-10 
Assignments 

of integer values 2-2 
of variables to sections 3-2 6f 
to arrays 4-16f 
Asterisk (*) 

as default array size indicator 

3-21 
as indefinite repeat count 
indicator 3-22 
At sign (@) 

as continuation character 1-2 
Attributes 

inheritance of 3-3 Of 
of routines 5-12f 
variable and type 3-27ff 
address 3-30 
and pointers 3-31 
device 3-2 8ff 
volatile 3-27f 
Average computation sample 
program 7-25 

B 

-b compiler option 6-6 

and compiler output 6-3 
Backslash (\) 

as continuation character 1-2 



Begin 4-2 If 

and case statement 4-26 

and compound statements 4-151 

example 4-22, 4-53 
.bin suffix 6-6 

of Pascal object file 6-3 
Binary 

expressing integer in 2-2 
example 4-24 
Binary output compiler option 6-6 
Binding a program 6-1, 6-15f 

example 7-11 
Bit operations (See also Bit 
operators) 

arithmetic right shift 4-19f 

exclusive or 4-173 

left shift 4-85f 

right shift 4-137f 
Bit operators 

differences between "&" and 
"and" 4-12 

differences between "!" and "or" 
4-108 

differences from logical operators 
4-23 

example 4-24 

extensions C-5 

overview 4-23f 
Bit precision 

controlling with type transfer 
functions 4-158 
Blanks 

and compiler directives 4-32 
Boolean data type 3-1, 3-7f 

and pred's value 4-118 

and succ's value 4-152 

and write and writeln 4-17 If 

correspondence with logical 7-13 

first value 4-66 

initializing 3-7f 

internal representation 3-8 

last value 4-83 
Boolean expressions 

and logical and 4-12f 

and logical not 4-102 

and logical or 4-108 

and repeat/until 4-128 

and while loops 4-163 
Braces ({}) 

as comment delimiters 2-3, 6-6 
Branching 

and case statement 4-25ff 

and if 4-76 
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types supported 4-1 



Calling a routine 5-2 
Caret (") (See Up-arrow) 
Case sensitivity 2-4 

and calling C from Pascal 7-20 

and compiling in DOMAIN/IX 
shell 6-3 

and strings 2-4 
Case statement 4-25ff 

and deviations from standard 
D-3 

differences from if/then/else 
4-25f 

example 4-2 6f 

in variant record declarations 
3-14 

summary 4-1 
Changes to manual vi 
Changing a parameter 

and in out 5-4 
Changing data types 4-157ff 

restrictions 4-157 
Char data type (See Character data 

type) 
Character data type 3-1, 3-8f 

and arrays 4-17f 

and chr 4-28 

and pred's value 4-118 

and succ's value 4-152 

and write and writeln 4-169f 

first value 4-66 

initializing 3-8 

internal representation 3-9 

last value 4-83 
Character representation 

in ASCII B-lff 
Character strings 

and case sensitivity 2-4 

definition 2-4 

passing to C 7-22f 

passing to FORTRAN 7-17 
example 7-18f 
Chr function 4-2 8 f 

example 4-29 
Close procedure 4-30f 

summary 8-7 
Closing a file 4-30f, 8-7 

and flushing the buffer 4-121, 
4-30 



Code 

extensions to 

summary l-4f, C-4ff 
Code generation modes 6-8f 
Colon (:) 

and designating field widths 
4-168ff 

and otherwise clause of case 
4-26 

in case statement 4-25 

in record declarations 3-14 

in routine headings 5- If 

in type declarations 2-10 
-comchk compiler option 6-6 
Comment delimiters 

matching 6-6 

requirements with -iso 6-11 

using compiler directives in 4-32 
Comments 2-3 

and -iso compiler option 6-11 

checking with compiler option 
6-6 

delimiters in strings 2-4 

extensions to 1-4, 2-3, C-2 
Common blocks 

and cross-language 
communication 7-14f 
Communication 

between programming languages 
7- Iff 
Compiler directives 4-32ff 

as extensions C-5 

examples 4-34ff 

list 4-33f 

using within comments 2-3, 4-32 
Compiler errors 9-5ff 
Compiler optimizations 

and abnormal routine option 
5-11 

and discard 4-43 

and goto 4-72 

and noreturn routine option 5-11 

and using exit 4-58 

preventing with addr 4-10 

suppressing 3-28ff 

techniques 6-12 
Compiler options 

-align 6-5 

array subscript checking 6-14f 

-b 6-6 

and compiler output 6-3 

binary output 6-6 

-comchk 6-6 
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-cond 6-7 

and -config 6-8 
conditional compilation 6-7 
-config 6-7f 

and -cond 6-7 
-cpu 6-8f 

-db debugger preparation 6-9 
-dba debugger preparation 6-9 
-dbs debugger preparation 6-9 
-exp 6-10 

expanded listing file 6-10 
-idir 6-10 
-iso 6-lOf 
-1 6-11 
list of 6-4f 
listing file 6-11 
-map 6-1 If 
-msgs 6-12 
-nalign 6-5 
-nb 6-6 
-ncomchk. 6-6 
-ncond 6-7 

-ndb debugger preparation 6-9 
-nexp 6-10 
-niso 6-1 Of 
-nl 6-11 
-nmap 6-1 If 
-nmsgs 6-12 
-nopt 6-12f 
-npeb 6-13 
-nsubchk 6-14f 
-nwarn 6-15 
-nxrs 6-15 
-opt 6-12f 

and debugger preparation 6-9 
optimization 6-12f 
-peb 6-13 
register saving 6-15 
searching for include files 6-10 
-slib 6-13f 

syntax 6-14 
-subchk 6-14f 

and extern arrays 7-4f 
target workstation selection 6-8f 
-warn 6-15 
warning messages 6-15 
-xrs 6-15 
Compiler output 

and working directory 6-3 
Compiling 1-2 

code generation modes 6-8f 



command to use 6-3 

conditionally 4-34ff 

and %debug directive 4-39 
stopping 4-36 

creating executable object 1-2, 
6-3 

errors generated 9-4ff 

pas command 6-3 

precompilation with -slib 4-40, 
6-13f 

warnings generated 9-4ff 

with -config option and compiler 
directives 4-34 
Complex data type 

simulating in Pascal 7-13 
Component type 

of an array 3-19 
Compound statements 4-151 

and begin 4-21 

terminating with end 4-52 
Concepts 

in encyclopedia 4-8 
-cond compiler option 6-7 

and -config 6-8 

and %debug directive 4-39 
Conditional action 

with branching statements 4-1 

with case statement 4-25ff 

with if 4-76 
Conditional compilation 6-7 

and compiler directives 4-34ff 
stopping 4-36 

and %debug directive 4-39 
-config compiler option 6-7f 

and compiler directives 4-34ff 

and -cond 6-7 
%config directive 4-37 
Const declaration part 2-8f 
Constants 

and case statement 4-25 

declaring 2-8f 

declaring Boolean types 3-8 

declaring character types 3-9 

declaring integer types 3-3f 

declaring real number types 3-5 f 

extensions C-2f 
Conventions 

documentation vi 

in error messages 9-4 
Converting a number to a character 

using chr 4-28 



lndex-5 



Copying an array 

using pack 4-112 

using unpack 4-160 
Copying sample programs 

using getpas l-2f 
Cos function 4-4 If 
Cosine function 4-4 If 
-cpu compiler option 6-8f 
Creating a new file 4-105, 8-5 

example 4-107 

with reset 4-131 
Crefpas utility 6-17f 

example 6-18 
Critical section 

and disable E-3 

and enable E-4 
Cross-language communication 1-5, 

7- Iff 
Cross-reference listing file 

creating with crefpas 6-17f 
Current iteration of a loop 

skipping 4-99 



DO_return routine option 5-11 

DATA$ 

and nondefault sections 3-2 6f 
and %slibrary directive 4-40 
and symbol map file 6-11 
as default data section 2-7, 7-2 
overriding this default section 
5-12f 

restrictions with -slib 6-14 
Data 

passing between FORTRAN and 
Pascal 7-14f 
Data registers 

and dO_return 5-11 
and nosave 5-11 
Data types (See also individual data 
type listings) 
and parameters 5-2 
and routine headings 5-2 
and write and writeln 4-169ff 
anonymous 2-10 
arrays 

and FORTRAN and Pascal 

7-13f 
of records 4-127 
overview 3-19ff 
using 4-16ff 



Boolean 

and FORTRAN and Pascal 
7-13 

overview 3-7f 
changing 4-157ff 
character 

and arrays 4-1 7f 

overview 3-8f 
checking 

suppressing with univ 5-5f 
correspondence for C and Pascal 

7-2 Iff 

list 7-21 
correspondence for FORTRAN 

and Pascal 7-12ff 

list 7-12 
declaring 3- Iff 

declaring user-defined types 2-9 
enumerated 

overview 3-9f 
extensions to 1-4, C-3f 
file 3-23 

finding size of 4-147f 
first possible values 4-66 
integer 

and FORTRAN and Pascal 
7-13 

overview 3-2ff 

passing to C 7-22 
last possible values 4-83 
of for loop variables 4-68 
pointer 

overview 3-24ff 
real number 

overview 3-4ff 

passing to C 7-22 
records 3-12ff 

using 4-125ff 
sets 

overview 3-1 Off 

using 4-139ff 
subrange 3-10 
text 3-23 

those supported 3-1 
-db debugger compiler option 6-9 
-dba debugger compiler option 6-9 
-dbs debugger compiler option 6-9 
Deallocating space 

with dispose 4-4 5 f 
%debug directive 4-39 

as conditional compilation 

designator 6-7 
Debugger 6-16f 
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and compiler options 6-9 
Debugging a program 6-16ff 

and %debug directive 4-3 9 f 
Declaration part order 

extensions to 1-4, C-2 
Declarations 

extensions C-2 

in routines 2-11 

overview 2-7ff 
Declaring 

arrays 3-19f 

Boolean constants 3-8 

Boolean data types 3-7 

character constants 3-9 

character variables 3-8 

constants 2-8f 

data types 3- Iff 

enumerated variables 3-9 

integer constants 3-3f 

integer variables 3-3 

labels 2-7f 

real number constants 3-5 

real number variables 3-4f 

sets 3-1 Of 

subrange variables 3-10 

user-defined data types 2-9 

variables 2-10 

variables in modules 7-3f 
Decrementing loop index variables 

4-68 
Defaults 

array subscripts in C 7-24 

code section 2-7 

data section 2-7 

field widths with write and writeln 
4-169ff 

global symbols and internal 5-9 

local symbols and internal 5-9 

text file line length 2-4 
Define declaration part 2-10, 7-3 

example 7-3f 

syntax 7-4 
Defining routines in separate files 

5-9 
Delayed access 

and input/output 8-4 
Deleting file contents 

with rewrite 4-134 
De-referencing a pointer 4-1 16f 

procedure or function types 
4-117 



restrictions 3-25 
Deviations 

from specific sections of the 

standard D-lff 
from standard Pascal D-lff 
Device attribute 3-2 8ff 

and attribute inheritance 3-30f 
Device drivers 

and systems programming 
routines E-1 
Directives 

compiler (See Compiler 
directives) 
Disable E-3 
Discard procedure 4-43f 

as extension C-5 
Discarding 

a computed value 4-43 
storage space with dispose 4-45f 
Dispose procedure 4-45f 

and new 4-94f 
Div operator 4-47f 
Division 
modulus 

example 4-48 , 4-93 
using div 4-47f 
using mod 4-9 2f 
Documentation conventions vi 

in error messages 9-4 
Dollar sign ($) 

as AEGIS shell prompt 1-2 
in identifier names 1-4, 2-1 
DOMAIN C 

and dO_return routine option 

5-11 
and val__param routine option 

5-11 
calling from DOMAIN Pascal 

7-20ff 
data types' correspondence to 
Pascal 7-2 Iff 
list 7-21 
differences in argument passing 

7-20 
null character (\0) 

and passing strings 7-22f 
struct 7-27 
DOMAIN FORTRAN 

and dO_return routine option 

5-11 
calling a subroutine 7-16 
calling from DOMAIN Pascal 
7-12ff 
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complex data types 

simulating in Pascal 7-13 

data types' correspondence to 
Pascal 7-12ff 
list 7-12 

logical data types 7-13 
DOMAIN Pascal 1-lff 

and -iso compiler option 6-1 Of 

extensions to standard l-4ff 

predeclared identifiers 
list A-2 

reserved words 
list A-1 
DOMAIN Software Engineering 

Environment 6-18 
DOMAIN/Dialogue 6-19 
DOMAIN/IX shell 

and compiling 6-3 

continuation character 1-2 
Double data type 

internal representation 3-7 

overview 3-4 
Double quotes (") 

as comment delimiters 2-3, 6-6 
Double-precision data type 

internal representation 3-7 
Downto 

using to decrement 4-68 
DSEE (See DOMAIN Software 

Engineering Environment) 
Dynamic storage 

allocating with new 4-9 4f 

deallocating with dispose 4-45f 
Dynamic variables (See variables 

dynamic) 



as explicit exponent 2-2 
E constant 

and exp function 4-60 
%eject directive 4-39 
Eliminating warning messages 

with discard 4-43 
Else clause of if 4-76f 

example 4-78 
%else directive 4-35 
%elseif predicate %then directive 

4-35 
%elseifdef predicate %then directive 
4-36 



%enable directive 4-35, 4-37 

Enable E-4 

Encyclopedia of DOMAIN Pascal 

code 4-8ff 
End 4-52f 

and begin 4-21 

and case statement 4-25f 

and compound statements 4-151 

example 4-22, 4-53 

in record declarations 3-13f 

without accompanying begin 4-52 
End of file 

and read and readln 4-123 

and reset 8-4 

testing for 4-54 
End of line 

and readln 4-123 

and writeln 4-168 

testing for 4-56 
%endif directive 4-36 
Enforcing order evaluation 4-77 
Enumerated data types 3-1, 3-9f 

and firstof 4-66 

and index variables 4-68 

and in_range 4-81 

and lastof 4-83 

and pred's value 4-118 

and sets 4-139ff 

and succ's value 4-152 

and write and writeln 4-17 If 

first value 4-66 

internal representation 3-9f 

last value 4-83 
Eof function 4-5 4f 
Eoln function 4-5 6f 
Equal sign (=) 

in record declarations 3-14 

in type declarations 2-9 
Equality 

in sets 4-142 
%error directive 4-38 
Error status 

and opening files 4-106 

example 4-132, 4-135 
Error_$print 

and error messages 9-2 

example 4-132, 4-135 
Errors 1-6, 9-lff 

and find procedure 4-63, 9-3 

and open procedure 9-3 

compiler 9-5ff 

passing parameters 5-4f 
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printing 9- If 

with %error 4-38 
testing for specific 9-2f 
when testing for end of line 4-56 
Example 

abbreviating record names 4-166f 
absolute value 4-9 
accessing routines in separate 

modules 7-8ff 
addr function 4-10 
allocating dynamic storage 4-9 6f 
and operator 4-13 
arctan function 4-14 
arithmetic right shift 4-19f 
array assignments 4-16f, 4-18 
array declarations 3-20 
array of records 4-127 
arshft 4-19f 
begin 4-22, 4-53 
bit operators 4-24 
building a linked list 7-2 6f 
calling a FORTRAN function 

7-15 
calling a FORTRAN subroutine 

7-16 
calling a routine 5-2 
calling C from Pascal 7-22ff 
calling FORTRAN from Pascal 

7-15ff 
case statement 4-26f 
changing data types 4-157ff 
character strings 2-4 
chr function 4-29 
close 4-31 
closing a file 4-31 
comments 2-3 
compiler directives 4-34ff 
compiling 6-3 

constant declarations 2-8f, 4-13f 
converting a number to a 

character 4-29 
cosine 4-41 
crefpas utility 6-18 
declaring all data types 3-2 
device attribute 3-29f 
direction of parameter passing 

5-4f 
discard procedure 4-44 
division 4-48 
end 4-22, 4-53 
end of file 4-55 
end of line 4-57 



enumerated data type 

declarations 3-9 
eof 4-55 
eoln 4-57 

error_$print 4-132, 4-135, 9-2 
exclusive or 4-174 
exit 4-58 
exp function 4-61 
externally stored variables 7-3f 
find procedure 4-64 
finding length of an object 

4-144f 
finding the maximum 4-88 
finding the minimum 4-91 
firstof function 4-67 
fixed record declarations 3-13 
for loops 4-18, 4-69 
forward routine option 5-9 
function 4-22, 4-44, 5-5, 5-14 
get procedure 4-71 
if statement 4-7 6ff 
in operator 4-144, 4-80 
%include directive 4-71 
initializing arrays 4-80, 4-86 
in_range function 4-82 
integer assignments 2-2 
integer data type declarations 3-3 
label declarations 2-8, 4-73f 
lastof function 4-67 
left shift 4-85f 

%list and %nolist directives 4-71 
In function 4-84 
logarithms 4-84 
logical and 4-13 
logical not 4-102 
logical or 4-109 

loops 4-100, 4-164, 4-58, 4-69 
Ishft 4-85f 
max function 4-88 
membership in a set 4-144, 4-80 
min function 4-91 
modulus division 4-48, 4-93 
new procedure 4-9 6f 
next 4-100 
nonde fault section names 3-27, 

5-13 
not operator 4-102 
odd function 4-103 
open procedure 4-106f 
opening a file 4-106f 
or operator 4-109 
ord function 4-111 
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otherwise clause of case 4-2 6f 
pack procedure 4-113 
packed arrays 4-113, 4-161 
packed record declarations 3-15 
packed record layout 3-19 
page procedure 4-115 
parameter list 5-2f 
passing a variable number of 

arguments 5-10 
passing arrays to C 7-25 
passing character strings to C 

7-23 
passing pointers 7-2 6f 
pointer data types 4-116f, 4-9 6f 
pointer declarations 3-24ff 
pred function 4-119 
procedures 4-64, 5-9 
program headings 2-7 
put procedure 4-120ff 
readln 4-124 
real number data type 

declarations 3-5 
real numbers 2-3 
real numbers' internal 

representation 3-6f 
record data type declarations 

3-13ff, 4-45, 4-94 
record initialization 3-16f 
repeat/until 4-129, 4-31 
reset procedure 4-132, 4-31 
return statement 4-133 
returning the address of a 

variable 4-10 
rewrite 4-135 
right shift 4-137f 
round function 4-136 
routine headings 5-2 
routine options 5-8 
rshft 4-137f, 4-20 
set data type declarations 3-11 
set operators 4-140ff, 4-80 
sine 4-145 
sizeof function 4-148 
square root function 4-150 
squaring a number 4-149 
subrange data type declarations 

3-10 
succ function 4-153 
traceback utility 6-17 
truncating 4-156 
type declarations 2-9 
type transfer functions 4-159 



universal parameters 5-6f 

unpack procedure 4-161 

value parameters 5-3 

variable parameters 5-3 

variable routine option 5-10 

variant record declarations 3-15 

volatile attribute 3-28 

while loops 4-164, 4-97 

with statement 4-1 6 6f 

write and writeln 4-14, 4-169ff, 
4-172 

writing to a file 4-120ff 

xor function 4-174 
Example programs (See Sample 

programs) 
Exclamation point (!) 

as bit operator 4-23 

differences with or 4-108 
Exclusive or 4-173f 

example 4-174 
Executable object file 1-2, 6-1 

and .bin suffix 6-3, 6-6 

and compiler directives 4-38 

and %eject directive 4-39 

and %list and %nolist directives 
4-40 

creating 6-6 

creating with binding 6-16 
Executing a program 6-16 
%exit directive 4-38 
Exit statement 4-5 8 f 

example 4-58 
Exiting from a loop 4-128, 4-163, 

4-58, 4-68, 4-99 
-exp compiler option 6-10 
Exp function 4-60f, 4-61 
Expanded notation 2-2 
Expansion of operands 4-3 

and arshft 4-19 

and bit operations 4-23 

and rshft 4-137 

and type transfer functions 4-158 

and univ 5-7 
Exponent 

expressing explicitly 2-2 
Exponentiation 

simulating 4-60 
Expressions 4-62 

discarding computed value 4-43 

using nil in 4-101 
Extensions C-lff 

abnormal routine option 5-11 



V 



lndex-10 



o 



additional functions and 

procedures l-4f 
addr function 4-10 
address attribute 3-30 
arithmetic right shift 4-19 
array initialization 3-20f 
arshft 4-19 
assigning variables to sections 

3-26f 
attribute inheritance 3-30f 
attributes 

variable and type 3-27ff 
bit operators 4-23 
Boolean initialization 3-7f, C-lff 
changing data types 4-157ff 
character initialization 3-8 
close procedure 4-105ff, 4-30f 
code 1-4 
comments 2-3 
compiler directives 4-32ff 
dO_return routine option 5-11 
data types 1-4 
declaration part order 1-4 
device attribute 3-2 8ff 
direction of parameter passing 

5-4f 
discard procedure 4-43f 
exclusive or 4-173 
exiting from a loop 4-58, 4-99 
extern routine option 5-9 
finding the length of an object 

4-147f 
firstof function 4-66 
if statement 4-76f 
in_range function 4-8 If 
integer initialization 3-3 
internal routine option 5-9 
lastof function 4-83f 
left shift 4-85 
loops 4-1 
Ishft 4-85 

next statement 4-99 
nondefault section names 5-12f 
noreturn routine option 5-11 
nosave routine option 5-11 
order of declaration parts 2-7 
otherwise clause of case 4-25f 
overview C-lff 
passing a variable number of 

arguments 5-10 
pointer data types 3-2 5 f 
pointer initialization 3-2 5 f 



pointer operations 4-1 16f 
program organization 1-4 
real number initialization 3-5 
record initialization 3-16f 
replace procedure 4-130 
right shift 4-137 
routine attributes 5-12f 
routines 1-5 
rshft 4-137 
set initialization 3-11 
sizeof function 4-147f 
standard Pascal l-4ff, C-lff 
type transfer functions 4-157ff 
universal parameters 5-5f 
val_param routine option 5-11 
variable routine option 5-10 
volatile attribute 3-27f 
with statement 4-166f 

example 4-166f 
xor function 4-173 

Extern routine option 5-9 

and routines in separate modules 

7-7 
and variables in separate modules 

7-3 
example 7-3f 

External references 

resolving with binding 6-15 

External routines 1-5, 7-3ff 



Factorial computation sample 

program 5-14 
Field widths 

for write and writeln 4-169ff 
File data type 3-2, 3-23 

and find procedure 4-63 
Filenames 

and .pas extension 1-2, 6-3 
Files 3-23f 

closing 4-30f, 8-7 
creating 4-105, 8-5 
deleting contents with rewrite 

4-134 
end of 4-54 

and read and readln 4-123 
and reset 8-4 
end of line 4-56 
finding a specific record 4-63 
getting the next record 4-70 
inserting a formfeed 4-114 
example 4-115 
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.nodifying 

allowing with rewrite 4-134 

opening 4-105ff, 8-5f 
example 4-122 
methods supported 4-105f 

organization types supported 8-5 

overview 3-23f 

reading 4-123, 8-6 

record-structured 3-24 
and replace 4-130 

replacing a record in 4-130 

temporary 8-5 

text 8-5 

types supported 8-5 

UASC 8-5 

variable 

and input/output 8-3 

writing to 4-120f, 4-168, 8-6 
and rewrite 4-134 
Find procedure 4-63ff 

common errors returned 9-3 

example 4-64 

summary 8-7 
Finding the maximum 4-87 
Finding the minimum 4-90 
Finding whether an integer is odd 

4-103 
Firstof function 4-6 6f 

and pred's value 4-118 

example 4-67 
Fixed record files 8-5 
Fixed records 3-13 

assigning values to 4-125 
Floating point 

and target workstation selection 
6-8f 

M68881 co-processor 6-8f 
Floating-point numbers 

definition 2-2 
Floating-point registers and nosave 

5-11 
For 4-68f 

and deviations from standard 
D-3 

and exit 4-58 

and next 4-99 

example 4-18, 4-69 

summary 4-1 
Format of module 7-2 
Format of program 2-5ff 
Formatting output 



and VFMT input/output method 
8-2 

Formfeed 

and %eject directive 4-39 

inserting in a file 4-114 
Forward routine option 5-8 f 

and nested routines 2-14 

example 5-9 
Functions (See also Routines ) 2-11 

and nondefault section names 
5-12 

arctan 4-14 

calling 5-2 

calling FORTRAN 7-15 

differences from procedures 2-11 

discarding a return value 4-43 

example 4-22, 4-44, 5-5 

headings 2-11, 5-1 

mathematical 
list 4-4 

recursive 

example 5-14 

returning from 4-133 



Get procedure 4-70f 

example 4-71 

similarities to read 4-70 

summary 8-6 
getpas l-2f 

demonstration 1-3 
Global symbols 

and internal routine option 5-9 
Global variables 2-12ff 
Goto 4-72ff 

and declaring target labels 2-7 

comparing with exit 4-58 

comparing with next 4-99 

example 4-73f 

reasons to use sparingly 4-72 

requirements with -iso 6-10 

using with nested routines 4-74 
Greater than (>) 

as standard output redirection 
character 6-16 

H 

Hardware status register E-3ff 
setting a new value E-5 

Headings 

of modules 7-2 
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of program 2-7 

of routines 2-11, 5-1 
Hexadecimal 

expressing integer in 2-2 
Hierarchy of access 

in nested routines 2-13 



I 



Identifiers 1-4, 2- If 

and declaring constants 2-8 
and deviations from standard 
D-1 

and reserved words A-1 

extensions C-1 
-idir compiler option 6-10 
If 4-76ff 

differences from case 4-25f 

example 4-22 

extensions C-6 

summary 4-1 
%if predicate %then directive 4-34f 
%ifdef predicate %then directive 

4-36 
In operator 4-80 

example 4-144, 4-80 
In out parameters 5-4f 
In parameters 5-4f 
%include directive 4-39 

and -slib 6-14 

example 4-71 
Include files 4-39 

and %exit directive 4-38 

and -idir 6-10 

and %ifdef directive 4-36 

precompiling with -slib 6-13f 
Incrementing loop index variables 

4-68 
Index type 

of an array 3-19 
Indexes (See also Subscripts) 3-19f 

in for loops 4-68f 

of arrays 4-16f 
Inequality 

in sets 4-142 
Inheritance of variable and type 

attributes 3-3 Of 
Input and Output (See 

Input/Output) 
Input Output Streams 

and stream markers 8-5 

ID 8-3 



overview 8-2 
Input standard input stream 8-3 
Input/Output 

and delayed access 8-4 

and deviations from standard 
D-3 

and put procedure 4- 12 Off 

and read and readln 4-123 

and replace 4-130 

and reset procedure 4-13 If 

and rewrite 4-134 

and write and writeln 4-168ff 

close procedure 4-30f 

extensions to 1-6, C-6 

finding a specific record 4-63 

getting the next record 4-70 

Input Output Streams 8-2 

methods supported 8-1 

open procedure 4-105ff 

overview 8- Iff 

procedures 

and array assignment 4-18 

procedures supported 
list 4-4 

requesting with reset 8-4 

VFMT 8-2 

writing to a file 4-134 
Input/Output default streams 8-3 
In_range function 4-8 If 

and subrange data types 3-10 

as extension C-7 

example 4-82 
Integer data types 3-1 

and pred's value 4-118 

and succ's value 4-152 

and write and writeln 4-170 

declaring 3-3 

extensions C-3 

first values 4-66 

initializing 3-3 

internal representation 3-4 

last values 4-83 

meaning in FORTRAN and 
Pascal 7-13 

overview 3-2ff 

passing to C 7-22 

passing to FORTRAN 7-13 
Integer 16 3-3 

and expansion of operands 4-3 

and sqr function 4-149 

internal representation 3-4 
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Integer32 3-3 

and error status 4-63 

and expansion of operands 4-3 

and sqr function 4-149 

first value 4-66 

internal representation 3-4 

last value 4-83 
Integers 

definition 2-2 

expressing in other bases 2-2 

extensions C-1 

rounding to nearest 4-136 

truncating to 4-156 
Interfaces 

designing with 
DOMAIN/Dialogue 6-19 
Internal representation 

arrays 3-22f 

Boolean data type 3-8 

character data type 3-9 

enumerated data types 3-9f 

integer data types 3-4 

packed records 3-18 

pointer data types 3-26 

real number data types 3-6f 

sets 3-1 If 

subrange data types 3-10 

unpacked records 3-17 
Internal routine option 5-9 

and routines in separate modules 
7-7 
International Standards Organization 

(See ISO) 
Interrupt enable 

controlling E-3f 
Intersection of sets 4-141 
I/O (See Input/Output) 
lOS (See Input Output Streams) 
-iso compiler option 6-1 Of 

and comments 2-3 

and goto 4-72f 

and mod 4-92f 
ISO standard Pascal 1-1 

and -iso compiler option 6-1 Of 

and mod operator 4-9 2f 

deviations from D-lff 

extensions 

overview C-lff 



Jumping out of a loop 4-128, 
4-163, 4-68 
with exit 4-58 
with next 4-99 

K 

Keywords (See also Reserved words) 
in encyclopedia 4-8 



-1 compiler option 6-11 
Labels 

and goto 4-72 
declaring 2-7f 
example 4-7 3f 
extensions C-3 
syntax 2-8 
Lastof function 4-83f 
and succ's value 4-152 
example 4-67 
Left shift 4-85f 
Length 

finding with sizeof 4-147 

example 4-147f 
of character string 

implicit argument 7-17, 7-23 
of record 

specifying when opening a file 
4-106 
Less than (<) 

as standard input redirection 
character 6-16 
Libraries 

precompiling with -slib 4-40, 

6-13f 
using 6-16 
Limits 

elements in a set 3-11 
elements in enumerated set type 

3-11 
identifier length 2-2 
length of line 8-5 
lines in file 8-5 

maximum storage for a set 3-12 
minimum size of packed record 

3-18 
minimum storage for a set 3-12 
number of dimensions in an 

array 3-19 
number of parameters 5-1 
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number of pathnames with -idir 
6-10 

subranges of integers in set type 
3-11 
Lines 

end of 4-56 

and readln 4-123 
and writeln 4-168 
Linked list 7-2 6ff 

and dispose 4-46 

and nil pointer 4-101 

building 4-96 
Links 

creating 1-2 
%list directive 4-40 
List 

linked 7-26ff 

and dispose 4-46 
and nil pointer 4-101 
building 4-96 
Listing file 

and %eject directive 4-39 

and -exp 6-10 

and -16-11 

and %list and %nolist directives 
4-40 

cross-reference 6-17f 
Ln function 4-84 

example 4-84 
Local symbols 

and internal routine option 5-9 
Local variables 2-12ff 
Locating a specific record 4-63 
Logarithms 

natural 

and e 4-60 

and In 4-84 
Logical and 4-12f 
Logical not 4-102 
Logical operators 

and 4-12f 

list 4-2 

not 4-102 

or 4-108f 
Logical or 4-108f 
Longword alignment 

compiler option 6-5 
Loops 

decrementing 4-68 

example 4-100, 4-164, 4-58, 
4-69 



exiting prematurely 4-128, 
4-163, 4-58, 4-68, 4-99 

extensions C-6 

for 4-68f 

incrementing 4-68 

repeat/until 4-128f 

skipping current iteration 4-99 

summary 4-1 

terminating prematurely 4-128, 
4-163, 4-58, 4-68 

while 4-163f 
Lowercase and uppercase characters 

and calling C from Pascal 7-20 

sensitivity to 2-4 
Low-level calls (See Systems 

programming routines) 
Lshft function 4-8 5f 
.1st suffix 

for listing file 6-11 

M 

M68020 microprocessor 6-8f 
M68881 floating-point co-processor 

6-8f 
Main program (See Program) 
Mantissa 

of real number 3-6f 
-map compiler option 6-1 If 
Mapping file 

and -map option 6-1 If 
Markers 

of streams 8-5 
Mathematical functions 

list 4-4 
Mathematical operators 

allowed in constant declarations 
2-9 

consecutive 2-2, 4-62 

list 4-2 
Max function 4-8 7f 

as extension C-5 
Maximum 

finding with max 4-87 
Maximums (See Limits) 
Membership in a set 

determining 4-80 
Messages 

errors 1-6, 9-lff 
Min function 4-9 Of 

as extension C-5 
Minimum 

finding with min 4-90 
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Minimums (See Limits) 
Miscellaneous statements 

list 4-5f 
Mixing 

numeric types in expressions 4-3 
Mod operator 4-92f 

and -iso compiler option 6-11 

example 4-48, 4-93 
Modifying a file 

allowing with rewrite 4-134 
Modifying a parameter 

and in out 5-4 
Modifying a record 

with replace 8-6f 
Modules 7- Iff 

differences from programs 7-2 

headings 7-2 
Modulus division 4-9 2f 

example 4-48, 4-93 
-msgs compiler option 6-12 
Multiple object files 

and binding 6-1 



and calling dispose 4-46 

and new 

example 4-97 

example 7-26 
-niso compiler option 6-1 Of 
-nl compiler option 6-11 
-nmap compiler option 6-llf 
-nmsgs compiler option 6-12 
%nolist directive 4-40 
Nondefault section names 5-12f 

and accessing externally stored 
variables 7-6 

and passing data 7-14f 

example 5-13 
-nopt compiler option 6-12f 
Noreturn routine option 5-11 
Nosave routine option 5-11 
Not operator 4-102 
-npeb compiler option 6-13 
-nsubchk compiler option 6-14f 
-nwarn compiler option 6-15 
-nxrs compiler option 6-15 



N 

-nalign compiler option 6-5 
Natural logarithms 

and e 4-60 

calculating with In 4-84 
-nb compiler option 6-6 
-ncomchk compiler option 6-6 
-ncond compiler option 6-7 
-ndb debugger compiler option 6-9 
Nested comments 2-3 
Nested include files 4-39 
Nested loops 

and exit 4-58 

example 4-58, 4-69 
Nested routines 2-13f 

and goto 4-74 

and nondefault section names 
5-13 
New procedure 4-94ff 

and dispose 4-45f 

example 4-9 6f 
-nexp compiler option 6-10 
Next statement 4-99f 

and for loops 4-68 

and repeat/until loops 4-128 

and while loops 4-163 

example 4-100 
Nil pointer 4-101 



Object file 

and .bin suffix 6-3, 6-6 

creating 6-6 

executable 6-1 (See also 
Executable object file) 
Octal 

expressing integer in 2-2 
Odd function 4-103 
Odd numbers 4-103 
On-line sample programs l-2f 
Open procedure 4-105ff 

and close 4-30 

and reset 4-131 

common errors returned 9-3 

difference from rewrite 4-106 

example 4-122 

summary 8-5f 
Opening a file 4-105ff, 8-5f 

and error status 4-106 

and reset 4-131 

and rewrite 4-134 

example 4-106f, 4-122 

methods supported 4-105f 

specifying buffer size 4-106 
Operators 

allowed in constant declarations 
2-9 

and 4-12f 
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div 4-47f 
mathematical 

consecutive 2-2, 4-62 
list 4-2 
mod 4-92f 
not 4-102 
or 4-108f 
set 4-80 
-opt compiler option 6-12f 

and debugger preparation 6-9 
Optimization techniques 6-12 
Optimizations 
compiler 6-12f 
and discard 4-43 
and goto 4-72 
levels of 6-12f 
preventing with addr 4-10 
suppressing 3-2 Bff 
Options 

compiler (See Compiler options) 
routines (See Routine options) 
Or else 

extension to if 4-7 6f 
Or operator 4-108f 

with not 4-102 
Ord function 4-11 Of 

example 4-111 
Order of precedence 
of operators 4-3 

and organizing expressions 
4-62 
Organization of program 

overview 2-5ff 
Otherwise clause of case 4-26 

example 4-2 6f 
Out of bounds condition 
and pred function 4-118 
and succ function 4-152 
Out parameters 5-4f 
Output (See Input/Output) 
Output standard output stream 8-3 



Pack procedure 4-1 12f 

example 4-113 

valid index values 4-112 
Packed arrays 

and deviations from standard 
D-1 

and pack procedure 4-112 

and unpack procedure 4-160 



example 4-113, 4-161 
Packed records 3-15f 

internal representation 3-18 
Packed 

warning with sets 3-11 
Page advance 

inserting in a file 4-114 
Page procedure 4-1 14f 

example 4-115 

summary 8-6 
Parameter list 

example 5-2f 

format 5- If 
Parameters 

and C and Pascal 7-20 

and cross-language 
communication 7-14 

and passing characters 7-7 

and routine headings 5- If 

arrays 

and univ 5-6 

definition 5-1 

difference between variable and 
value 5-3f 

in 5-4f 

in out 5-4f 

out 5-4f 

passing direction 5-4f 

types of 5-3f 

universal 5-5f 
cautions 5-7 
example 5-6f 

value 5-3f 

variable 5-3f 
Parentheses () 

and extensions to if 4-7 6f 

as section name delimiters 3-26 

in enumerated declarations 3-9 

using to organize complex 
expressions 4-62 
Parentheses/asterisks (* *) 

as comment delimiters 2-3, 6-6 
pas compiler command 6-3 
.pas suffix 

of Pascal source code 6-3 

with -1 option 6-11 
Pascal (See DOMAIN Pascal) 
Passing arguments 

and val__param 5-11 

and variable routine option 5-10 

restrictions 5-3 
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Passing parameters 

specifying direction 5-4f 
Pathnames 

absolute 6-10 
and -1 option 6-11 
of file to open 4-105 
of Pascal source code 6-3 
relative 6-10 
-peb compiler option 6-13 
PEB (See Performance 
Enhancement Board) 
Percent sign (%) 

as compiler directive indicator 
4-32 
Performance Enhancement Board 

6-8, 6-13 
Period (.) 

and record field names 4-125 
Pointer data types 3-2, 3-24ff 
and address registers 5-11 
and attribute inheritance 3-31 
and dispose 4-4 5 f 
and new 4-94f 
and passing arguments 7-20 

example 7-22ff 
and stream markers 8-5 
and type transfer functions 4-159 
and variable and type attributes 

3-31 
example 4-116f, 4-9 6f 
extensions to 1-4, C-4 
initializing 3-25f 
internal representation 3-26 
nil 4-101 

nil value and dispose 4-46 
passing to C 7-2 6ff 
procedure and function types 

3-25 
restrictions for de-referencing 

3-25 
standard 3-24 
univ_ptr 3-25, 4-117 

and addr 4-10 
using 4-1 16f 
Precedence 

of mathematical operators 4-3 
and organizing expressions 
4-62 
Precompilation of include files 4-40, 

6-13f 
Precompiled libraries 4-40 
Pred function 4-1 18f 



example 4-119 
Predecessor of a value 

returning 4-118 
Predeclared data types 

and declaring variables 2-10 
Predeclared files 

closing 4-30 
Predeclared identifiers A-2 
Predicate 

in compiler directives 4-34ff 
definition 4-34 
Previously declared routines 

and forward 5-8 f 
Printing 

a file 

and inserting a formfeed 
4-114 

a warning message 
with %warning 4-38 

an error message 
with %error 4-38 

error messages 9-lf 
PROCEDURES 

and symbol map file 6-11 

as default code section 2-7, 7-2 

overriding this default section 
5-12f 
Procedures (See also Routines) 2-11 

and nondefault section names 
5-12 

calling 5-2 

calling FORTRAN 7-16 

differences from functions 2-11 

example 4-133, 4-22, 4-64, 
5-9 

headings 2-11, 5-1 

returning from 4-133 
Program 

action part 2-12 

as routine 

and nesting 2-13 

differences from modules 7-2 
Program development 

extensions 1-5 

steps 6-2 
Program heading 2-7 
Program organization 

extensions 1-4 

overview 2-5 ff 
Programming languages 

communication between 7- Iff 
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Put procedure 4-120ff 
example 4-120ff 
summary 8-6 



Quotient 

calculating using div 4-47f 



Range 

finding whether a value is in 
4-81 

of a data type 
extensions C-6 

of integer data types 3-3 

of real number data types 3-4 
Read and readln 4-123f 

example 4-124 

extensions C-7 

similarities to get 4-70 

summary 8-6 
Reading a file 4-123, 8-6 

and reset 4-131 
Real number data types 3-1 

and write and writeln 4-170f 

declaring 3-4f 

extensions C-4 

initializing 3-5 

internal representation 3-6f 

overview 3-4ff 

passing to C 7-22 
Real numbers 

definition 2-2 
Records 3-12ff 

abbreviating names using with 
4-165ff 

and dispose 4-45f 

and new 4-94f 

assigning values to 4-125f 

data types supported 3-1 

finding a specific one 4-63 

fixed 3-13 

differences from variant 3-14 
using 4-125 

fixed-length 8-5 

getting the next 4-70 

initializing 3-16f 

internal representation 3-17f 

packed 3-15f 

packed record storage 3-18 



replacing occurrence of 4-130 

shortening names 4-165ff 

unpacked 3-15f 

using 4-125ff 

using to simulate complex 7-13 

variable-length 8-5 

variant 3-14f 

and sizeof 4-147f 
using 4-126 
Record-structured files 3-24 

and replace 4-130 
Recursion 

and routines 5-14 
Redirected standard input 6-16 
Redirected standard output 6-16 
Registers 

and dO_return 5-11 

indicating those saved 5-11 

saving 6-15 
Relative pathnames 6-10 
Remainder 

of division 

and mod 4-92f 
Repeat counts 

and array initialization 3-2 If 
Repeat/until 4-128f 

and exit 4-58 

and next 4-99 

contrasting with while 4-129, 
4-164 

example 4-129, 4-31 

summary 4-1 
Replace procedure 4-130 

example 4-64 

summary 8-6f 
Replacing a record in a file 4-130 
Request for input 8-4 
Reserved words A-1 
Reset procedure 4-13 If 

and input/output 8-3f 

and using get 4-71 

example 4-132, 4-31 
Retaining values of routine variables 

7-3 
Retrieving sample programs 

using getpas l-2f 
Return statement 4-133 

as extension C-7 

example 4-133 
Returning 

from a routine 4-133 

the address of a variable 4-10 
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the length of an object 4-147f 

the ordinal value of an 
expression 4-110 

the predecessor of a value 4-118 

the size of an object 4-147f 

the successor of a value 4-152 
Rewrite procedure 4-134f 

and temporary files 8-5 

calling before put 4-121 

difference from open 4-106 

example 4-135 
Right shift 4-137f 
Round function 4-136, 4-136 
Rounding a number 4-136 

and write and writeln 4-171 
Routine 

as a term 5-1 
Routine options 

abnormal 5-11 

dO_return 5-11 

example of forward 5-9 

examples 5-8 

extensions C-9 

extern 5-9 

and routines in separate 
modules 7-7 

format of 5-8 

forward 5-8f 

internal 5-9 

and routines in separate 
modules 7-7 

noreturn 5-11 

nosave 5-11 

val_param 5-11 

variable 5-10 
Routines (See also Functions and 
Procedures) 

accessing those in separate 
modules 7-7ff 
example 7-8ff 

action part 2-12 

and nondefault section names 
5-12 

and universal parameters 5-5f 

arguments 5- Iff 

attributes 5-12f 

calling 5-2 

extensions to 1-5, C-8f 

headings 2-11, 5-1 
example 5-2 

nested 2-13f 



and nondefault section names 
5-13 
options 5-8ff 
parameters 5- Iff 
recursion 5-14 
summary 2-1 Iff 
Rshft function 4-137f 

example 4-20 
Running a program 6-16 



Sample programs 1-lff 
abs_example 4-9 
addr_example 4-10 
and_example 4-13 
append 7-27 
arctan_example 4-14 
array_example 4-18 
arshft_example 4-20 
begin_end_example 4-22, 4-53 
bit_operators_example 4-24 
build_a_linked_list 4-9 6f 
building a linked list 7-26f 
calling C from Pascal 7-22ff 
calling FORTRAN from Pascal 

7-15ff 
case_example 4-27 
chr_example 4-29 
close_example 4-31 
config_example 6-7 
cos_example 4-41 
cosine 4-41 
discard_example 4-44 
div_example 4-48 
division 4-48 
eof_example 4-55 
eoln_example 4-57 
exit_example 4-58 
exp_example 4-61 
find_and_replace_example 4-64f 
firstof_lastof_example 4-67 
for_example 4-69 
forward_example 5-9 
get_example 4-71 
global_example 2-13 
goto_example 4-74 
hypot_c 7-22 
hypotenuse 7-15 
hypot_sub 7-16 
if_example 4-78 
in_example 4-80 
in_out_example 5-4f 
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in_range_example 4-82 
labeled 2-6 
ln_example 4-84 
local_example 2-13 
logarithms 4-61, 4-84 
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